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This publication is intended for application programmers who are 
familiar with the BSAM and QSAM access methods for OS or OS/VS 
systems. It describes the macro instructions and services which are 
provided to support the 3505 Card Reader and the 3525 Card Punch. 

Before using this publication you should be familiar with the informa- 
tion contained in: 

IBM 3504 Card Reader/IBM 3505 Card Reader and IBM 3525 Card 
Punch Subsystem, GA21-9124, and the data management services and 
data management macro publications for your system. 





PREFACE 



This publication contains descriptions of the OS and OS/VS support for the 3505 
Card Reader and 3525 Card Punch and the optional features for both devices. 

It is divided into three parts: 

3505 Card Reader — This section describes the data sets and access methods used 
with the 3505 and provides information about the data management macro instruc- 
tions pertinent to the device. 

3525 Card Punch — This section describes the data sets and access methods used with 
the 3525 and provides information about the data management macro instructions 
pertinent to the device. Special emphasis is placed on the usage of associated data 
sets for the various combinations of read, punch, and print operations. 

Appendixes — This section includes information about the diagnostics available for 
the 3505/3525. It also contains a sample program demonstrating the use of the 3525 
for a read, punch, and print job with program controlled line positioning. 
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3505 CARD READER 



The IBM 3505 is a medium-speed serial 80-column card reader. It comes in two 
models, B1 and B2. The maximum throughput on the model B1 is 800 cards per 
minute; on the model B2 it is 1200 cards per minute. Both models are channel 
attached to System/370 and System/360 Model 195. 

The 3505 provides faster read capabilities and more innovative functions than either 
the IBM 2501 Card Reader or the read portion of the IBM 2540 Card Read Punch. 
Standard features include: 

• An 80-column card image buffer which allows both a reread function and its 
associated channel error recovery. 

• One logical stacker that consists of two physical stacker mechanisms called 
stacker 1 left and stacker 1 right. 

• Card reading in either EBCDIC or column binary mode. 

• Read Column Eliminate (RCE), which suppresses the reading of data from 
specified card columns. 

Program support provided for existing readers applies to the standard 3505 with no 
modifications. Buffering is the same, including the buffering for normal reading 
and stacker selection. This includes compatible 2540 channel programs. The 3505 
is supported as a system input device. 



3505 OPTIONAL FEATURES 

Optional features on the 3505 Card Reader include: 

• A selective stacker (stacker 2). This includes a third stacker and a stacker wait 
station. 

• Optical Mark Read (OMR), which provides the ability to read up to 40 columns 
per card of pencilled marks (#2 lead or softer), and machine-printed, non- 
reflective ink marks from cards. 

The 3505 is not supported as a system input device when using OMR or RCE. 



3505 DATA SETS 

The 3505 has the same BSAM and QSAM support as other IBM readers. The read 
data set must be designated as input according to the methods specified in OS or 
OS/VS Data Management Macro Instructions (GC26-3794 or GC26-3793). Buffer- 
ing for normal reading and stacker selection remains unmodified. Data management 
also supports the OMR and RCE features. (See 3505 Optical Mark Read and Read 
Column Eliminate.) 
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BSAM/QSAM programs currently used with 2540, 2501, 2520, or 1442 may be 
executed without change to the logic or JCL except where a device has been expli- 
citly specified (such as UNIT=2540 in the DD statement). However, if the DD 
statement is modified to indicate 3505, the current user program will execute 
identically, assuming the 3505 has identical features. 

If column binary mode is used, it must be specified in either a DCB statement at 
assembly time or in the DCB subparameter of a DD statement at execution time. 
Validity checking is suspended in column binary mode because all characters are 
considered valid. If data mode is not specified, EBCDIC is assumed. Once data 
mode is established, it cannot be changed during execution of the program, except 
at the EXCP level. 

Read Column Eliminate must also be specified in either a DCB statement at 
assembly time or in the DCB subparameter of a DD statement at execution time. 
(See Read Column Eliminate.) The RCE format does not become effective until 
the data set is opened and remains in effect until the data set is closed. 

The MODE operand of the DCB statement is used to indicate that RCE or OMR is 
to be used by the program for the 3505. 

The user is responsible for assigning, via a DD statement, a 3505 which has the 
feature required for the job. The Scheduler will not allocate a 3505 by feature. 
However, the Scheduler will allocate a 3505 as a reader without concern for any 
optional features. 



3505 ACCESS METHODS 

The operating system, via the assembler, uses a set of macro instructions to initiate 
the data management access methods used by the 3505. These instructions initiate: 

• the Basic Sequential Access Method (BSAM) 

• the Queued Sequential Access Method (QSAM) 

A detailed description of the macros that are used for these access methods can be 
found in OS or OS/VS Data Management Macro Instructions (GC26-3794 or GC26- 
3793). 

Both access methods and the macro instructions are used with the two major 
configurations of the IBM System/360 or 370 operating system: 

• Multiprogramming with a Fixed number of Tasks (MFT), or VS1. 

• Multiprogramming with a Variable number of Tasks (MVT), or VS2. 

The data control block (DCB) macro instruction defines the data set for BSAM 
and QSAM. 

MACRO INSTRUCTIONS (3505) 

The macro instructions used with BSAM on the 3505 for input operations are 
READ, CHECK, CNTRL, OPEN, and CLOSE. (See the OS or OS/VS Data 
Management Macro Instructions, GC26-3794 or GC26-3793 for OPEN and CLOSE. 



The macro instructions which are used with QSAM for 3505 input operations are 
GET, CNTRL, OPEN, and CLOSE. The CNTRL, OPEN, and CLOSE macro 
instructions are the same for QSAM and BSAM (except a test for completion of 
input operations is not required for the CNTRL macro instruction for QSAM 
before it is issued). 



READ 



The READ macro instruction initiates an input operation. After the instruction is 
issued, control is returned to the problem program so that it may perform 
operations which do not involve the input buffer specified in the READ instruction. 
A data event control block (DECB) is constructed as part of the READ macro 
expansion. A DECB: 

1 . passes parameters to the controlling program; and 

2. aids in controlling the READ operation. 

The READ macro instruction for BSAM is written as follows: 



[symbol] 


READ 


( length! 
DECB name, type, DCB address, area address,^ 'S' j 



• DECB name — the name assigned to the DECB created during the macro 
expansion. 

• type — the type of READ operation; SF (normal retrieve) must be coded for 
3505 programs. 

• DCB address — the address of the DCB for the data set which is read. 

• area address — the address of the area into which the record is placed. 

• length — the number of data bytes which are read (maximum 32,760); if 'S' is 
coded, the number of bytes is taken from the DCB. (The length operand is 
ignored if the records are either in F or V format.) 



CHECK 



The CHECK macro instruction checks for a completed input operation. If the 
operation is complete, the instruction checks for error indications. If the operation 
is incomplete, the task waits for completion. The CHECK macro instruction is 
written as follows: 



[symbol] 


CHECK 


DECB address 



DECB address — the address of the data event control block, which is either 
created by the associated READ macro instruction or used by the associated 
input operation. 
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CNTRL (FOR STACKER SELECTION) 

The CNTRL macro instruction is used to control stacker selection for both QSAM 
and BSAM. Under BSAM, all input operations must be tested for completion 
before the CNTRL macro instruction is issued. If stacker selection is required: 

1. the CNTRL macro instruction must be issued whenever it is necessary to 
read a new card. 

2. the BUFNO field of the DCB must be coded as one. 
The CNTRL macro instruction is written as follows: 



[symbol] 


CNTRL 


DCB address,SS,| 2 j 



• DCB address — the address of the DCB for the card reader. 

• SS — the stacker select option (one or two). 

Note: See the OS or OS/VS Data Management Macro Instructions, GC26-3794 or 
GC26-3793 for a more detailed description of the CNTRL macro instruction. 



GET 



The GET macro instruction causes the control program to retrieve the next record. 
The instruction can be issued in either the locate, move, or substitute mode. The 
GET macro instruction is written as follows: 



[symbol] 


GET 


DCB address [,area address] 



• DCB address — the address of the DCB for the data set which is being retrieved. 

• area address — there are three modes of retrieval; these may not be intermixed 
within a specified DCB. 

1. In locate mode, the area address is omitted. The address which is returned 
in register 1 references the buffer which contains the record. 

2. In move mode, the area address specifies the address of the area in the 
problem program into which the system will move the record. 

3. In substitute mode, the area address specifies the address of an area in the 
problem program that will be exchanged for the buffer containing the record. 
The system returns the address of the buffer containing the record in register 1. 



3505 READ WITH OPTIONAL STACKER 



Stacker selection is specified in the MACRF or STACK operand of the DCB macro 
instruction, or in the STACK operand of the DCB subparameter in the DD state- 
ment. If stacker selection via the CNTRL macro instruction is specified by the 
MACRF operand, either stacker 1 or 2 must be subsequently specified in the 
CNTRL instruction. If no stacker selection is specified, the cards are stacked in 
logical stacker 1. 



Stacker 1 is the default stacker if the 3505 has only one logical stacker and a 
command is issued indicating stacker 2 or 3. Stacker 2 is the default stacker if a 
command is issued indicating stacker 3 and the 3505 has the optional stacker. 
Stacker selection default is not diagnosed. 

If stacker control is required, BUFNO=1 must be specified. This is the only way 
the user can be sure a particular card is going to the desired stacker. 



3505 OPTICAL MARK READ 

OMR provides the facility to read up to 40 columns of marked data with the OMR 
data physically located on the card in alternating columns. If OMR is specified, a 
format descriptor card must be provided as the first card of the data deck. The 
format descriptor card specifies the columns from which optical marks are to be 
read. Abnormal termination results if a format descriptor card is not supplied. 
If checkpoint/restart is used, the format of the OMR data set must be re-established 
when the job is restarted. 

Format Descriptor Card: The word FORMAT must be coded startihg in column 2 
of the first card of the data deck (column 1 must be blank), followed by a blank 
and the parameters that specify the columns to be read in OMR mode. For 
example, if columns 3, 5, 7, 9, 70, 72, 74, 76, 78, and 80 are to be read in OMR 
mode, the format descriptor card would be coded as follows: 

tS FORMATS (3,9), (70,80) 

Continuation cards can be coded if: 

1. a continuation character (non-blank) is entered in column 72 of the card; 
and 

2. the continued field begins in column 16 of the next line. 
A continued field is coded in one of two ways: 

1. the operand field is coded through column 71 with no blanks, and is then 
continued in column 16 of the next card, or 

2. the operand field is truncated by a comma and then continued in column 16 
of the next card. 

OMR Data Records: The following rules apply to coding an OMR record. 

• Mark columns within a field must be separated by at least one blank (not a 
punch or mark). 

• Mark and punch fields must be separated by at least one blank (not a punch 
or mark). 

• Mark fields in odd columns and mark fields in even columns must be separated 
by at least two blanks (not punches or marks). 

• Mark or punch fields may begin in any column, so long as the coding conforms 
to the first three rules. 
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Although OMR data is physically located on the card in alternating columns, the 
data is compressed in the channel. The blank following an optical mark is not 
transferred to the input buffer by the channel. 

The format data is stored in the system and may contain either a digit (0 through 
9) or a letter (A through Z) for each card column that is to contain OMR data. All 
other format bytes are blanks (X'40'). Figure 3505-1, Format of OMR Data, 
illustrates how the data appears in the card, the system, and in the channel and 
input buffer. 
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Figure 3505-1. Format of OMR Data 



When a marginal mark, weak mark, or poor erasure is detected, that column's data 
is replaced with X'3F' in EBCDIC mode or with X'3F3F' in column binary mode. 
X'3F' is also placed in column 80 for EBCDIC and column 160 for column binary. 
The user is responsible for checking for OMR reading errors. 



If OMR is used, it must be specified in either a DCB statement at assembly time 
(MODE=0), or the DCB subparameter of a DD statement at execution time 

(MODE= jj^j O). If the MODE operand for a 3505 is specified in the DCB sub- 
parameter of a DD statement, either C or E (for column binary or EBCDIC), 
must be specified if O is specified. 



The OMR format becomes effective only after the data set is opened. The OPEN 
macro instruction must be followed by a READ and CHECK, or a GET macro 
instruction. A CNTRL macro instruction must also be issued if stacker selection 
is required. If stacker selection is used, BUFNO=1 must be specified. The format 
remains in effect until the data set is closed. When the CLOSE macro instruction 
is issued or when the device runs out of cards at end of file (EOF), the device is 
automatically reset to read all 80 columns in normal mode. 

Stacking more than one job utilizing card columns 1 or 2 for OMR is not 
recommended. The normal file delimiter (/*), which occupies these columns, 
cannot be recognized if OMR uses these columns. 

The following example illustrates how OMR can be specified via the DD statement: 

READD DCB DDNAME=OMR,DSORG=PS,MACRF=GMC 

CNTRL 
Move Mode 
GET 

//OMR DD UNIT=3505,DCB=(MODE=EO,BUFNO=1, 

where MODE=EO specifies EBCDIC and OMR mode, and BUFNO=1 is specified 
because the CNTRL macro is being used. 

Note: Chain channel scheduling and the user totaling facility is not supported 
when using OMR. 



READ COLUMN ELIMINATE (3505/3525) 

If RCE is specified, a format descriptor card must be provided as the first card of 
the data deck. The format descriptor card specifies the columns which are to be 
eliminated. Abnormal termination results if a format descriptor card is not 
supplied. If checkpoint/ restart is used, the format of the RCE data set must be 
reestablished when the job is restarted. 

Format Descriptor Card: The word FORMAT must be coded starting in column 2 
of the first card of the data deck (column 1 must be blank), followed by a blank 
and the parameters that specify the columns to be eliminated in RCE mode. 

For example, if columns 20 through 30 and 52 through 76 are not to be read, the 
format descriptor card would be coded as follows: 

feS FORMATS (20,30), (52,76) 
Continuation cards can be coded if: 

1. a continuation character (non-blank) is entered in column 72 of the card; 
and 

2. the continued field begins in column 16 of the next card. 

A continued field is coded in one of two ways: 

1. the operand field is coded through column 71 with no blanks, and is then 
continued in column 16 of the next card, or 

2. the operand field is truncated by a comma and then continued in column 16 
of the next card. 
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If RCE is used, it must be specified in either a DCB statement at assembly time 
(MODE=R), or in the DCB subparameter of a DD statement at execution time 

(MODE= {^}R). If the MODE operand for a 3505 or 3525 is specified in the 
DCB subparameter of a DD statement, either C or E (for column binary or 
EBCDIC), must be specified if R is specified. 

The RCE format becomes effective only after the data set is opened. The OPEN 
macro instruction must be followed by a READ and CHECK, or a GET macro 
instruction. A CNTRL macro instruction must also be issued if stacker selection 
is required. If stacker selection is used, BUFNO=1 must be specified. The format 
remains in effect until the data set is closed. When the CLOSE macro instruction 
is issued, or when the device runs out of cards at end of file (EOF), the device is 
automatically reset to read all 80 columns in normal mode. 

Stacking more than one job utilizing card columns 1 or 2 for RCE is not 
recommended. The normal file delimiter (/*), which occupies these columns, 
cannot be recognized if RCE uses these columns. 

The following example illustrates how RCE can be specified via the DCB statement: 

READD DCB DDNAME=RCE,DSORG=PS,MACRF=GL,MODE=R, . 

I I 
J Locate Mode 

GET 
//RCE DD UNIT=3525 

where MODE=R specifies RCE mode (EBCDIC is the default for data mode). 

Note: Chain channel scheduling and the user totaling facility is not supported 
when using RCE. 



3525 CARD PUNCH 



The IBM 3525 is an 80-column card punch. The 3525 models and their respective 
performance capabilities are: 

• 3525-P1 Card Punch 100 Cards per Minute Maximum 

• 3525-P2 Card Punch 200 Cards Per Minute Maximum 

• 3525-P3 Card Punch 300 Cards Per Minute Maximum 

All of these models can be attached to System/360 Model 195 and System/370. 

The 3525 must be used in conjunction with the 3505. Its attachment to the using 
system is through a channel attachment to a control unit in either model of the 
3505. 

The 3525 has one hopper from which it passes its data cards. There are two 
program-controlled selectable stackers, stacker 1 (on the right) and stacker 
2 (on the left). A card traversing the feed path will pass from the hopper to a 
dummy station (card read station if the option is installed), to the card punch 
station, then to another dummy station (card print station if the option is 
installed), and into one of the two program selectable stackers. If a card is found 
to be mispunched (during a punch only job), It is passed to a third stacker and two 
cards are punched automatically. One of the two cards is fed to the third stacker 
with the error card and the second card replaces the one in error in the normal 
stacker. The repunching of cards is a hardware function. 



3525 OPTIONAL FEATURES 

All models of the 3525 can include the following optional features: 

Card Read 

This feature provides the ability to read punched-hole data, under program control, 
from a card during a single pass of the card through the machine. The data can be 
EBCDIC or column binary. Read Column Eliminate is also included with this 
feature (see Read Column Eliminate). 

Two-Line Print 

This feature provides the ability to print two lines of data, under program control, 
on a card during a single pass of the card through the machine. The data printed 
on the card can be the same as or different than the data punched into the card. 
Print line one is located above punch row 12 of the card and the second print line 
(actually printed on print line three) is located between punch rows 12 and 1 1. 
Each line of print is 64 characters in length. A 63-character graphic set, plus a 
blank, is provided. 
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Multiline Print 

This feature provides the ability to print up to 25 lines of data, under program 
control, on a card during a single pass of the card through the machine. This 
feature has the same character set and print span as the Two-Line print feature. 



3525 DATA SETS 

The punch and read data sets must be designated as output and input data sets, 
according to the methods specified in OS or OS/VS Data Management Macro 
Instructions (GC26-3794 or GC26-3793). The print and interpret punch 
functions must be designated by the FUNC operand in either a DCB statement or 
the DCB subparameter of a DD statement. (Also see the 3525 Associated Data Sets 
section of this book.) 

BSAM/QSAM programs currently used with a 2540, 2501, 1442, or 2520 may be 
executed without change to the logic or JCL, except where a device has been 
explicitly specified on the DD statement (such as UNIT=2540). If the DD state- 
ment is modified to indicate 3525, the current program will execute identically, 
assuming the 3525 has identical features. 



Punch 



The 3525 has the same BSAM and QSAM support as other IBM punches. Data 
management also supports the previously discussed optional features. The 3525 
is supported as a SYSOUT device for punch only data sets. 



Read 



The 3525 has standard IBM reader support for BSAM and QSAM. Data manage- 
ment also supports the RCE feature. If RCE is used, it must be specified in either 
a DCB statement at assembly time or in the DCB subparameter of a DD statement 
at execution time. A first card descriptor statement must be used to specify which 
columns are to be eliminated. For a detailed discussion of RCE mode, see Read 
Column Eliminate. The 3525 is supported as a SYS IN device for read only data 
sets if RCE is not specified. 



Print 



The 3525 has BSAM and QSAM support for printing. Macro support includes 
CNTRL and PRTOV with each card regarded as a print page. 



Interpret Punch 

The interpret punch data set is supported by both BSAM and QSAM. The support, 
via a single data set, includes both punching and printing of graphically printable 
punched characters on print lines one and three of the card. Line one includes 
the first 64 characters and line three includes the last 16 characters (right 
justified). Extraneous characters are printed for nongraphic eight-bit codes. 
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Special Considerations 

If column binary mode is used, it must be specified in either a DCB statement at 
assembly time or in the DCB subparameter of a DD statement at execution time. 
If data mode is not specified, EBCDIC is assumed. Once the data mode is 
established, it cannot be changed during execution of the program, except at the 
EXCP level. 

Operands which are new or have been modified for use with the 3525 include: 

MODE — The MODE operand of the DCB statement is also used to indicate 
whether RCE mode is to be used. 

FUNC - The FUNC operand of the DCB statement defines the type of data set 
to be opened. It must be used with print only and associated data 
sets, and can be used with read only and punch only data sets. See 
3525 Associated Data Sets for more information. 

FCB — The FCB operand of a DD statement is used to indicate that Data 
Protection Image (DPI) is associated with a particular data set. See 
Associated Data Sets for more information. 



3525 ACCESS METHODS 

The operating system, via the sasembler, uses a set of macro instructions to 
initiate the data management access methods of the 3525. These instructions 
initiate: 

• the Basic Sequential Access Method (BSAM) 

• the Queued Sequential Access Method (QSAM) 

A detailed description of the macros that are used for these access methods can be 
found in OS or OS/VS Data Management Macro Instructions (GC26-3794 or 
GC26-3793). 

Both access methods and the macro instructions are used with the two major 
configurations of the System/360 Model 195 and System/370 operating systems: 

• Multiprogramming with a Fixed number of Tasks (MFT), or VS1 

• Multiprogramming with a Variable number of Tasks (MVT), or VS2 

The data control block (DCB) macro instruction defines the data set for BSAM 
and QSAM. 
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MACRO INSTRUCTIONS (3525) 

The macro instructions used with BSAM for the 3525 are: 

Input READ, CHECK, and CNTRL 

Output WRITE, CHECK, CNTRL, and PRTOV 

The macro instructions for READ, CHECK, and CNTRL (for stacker selection), 
are discussed under Macro Instructions in the 3505 section of this book. 

The macro instructions used with QSAM for the 3525 are: 

Input GET and CNTRL 

Output PUT, CNTRL, and PRTOV 

The GET and CNTRL (for stacker selection) macro instructions are discussed under 

Macro Instructions in the 3505 section of this book. 

See OS or OS/VS Data Management Macro Instructions, GC26-3794 or GC26-3793, 

for OPEN and CLOSE. 



WRITE 



The WRITE macro instruction initiates an output operation. After the instruction 
is issued, control is returned to the problem program so that it may perform 
operations which do not involve the buffer specified in the particular instruction. 
A data event control block (DECB) is constructed as part of the write macro 
expansion. A DECB: 

1 . passes parameters to the controlling program; 

2. aids in the controlling of the write operation; and 

3. receives indication of the success or failure of the write operation. 

Note: The operating system returns control to the program before the write 
operation is complete, so that output operations can be overlapped with CPU 
processing. 



The WRITE macro instruction for BSAM is written as follows: 



[symbol] 



WRITE 



DECB name,SF,DCBaddress,area address 



( length ) 

A 's- ) 



• DECB name — the name which is assigned to the DECB. 

• SF — is codes as shown. 

• DCB address — the address of the DCB for the data set which is created. 

• area address — the address of the main storage area which contains the block. 

• length — the operand which is used for unspecified-length records; this operand 
specifies the number of data bytes to be written (maximum 32,760). 'S' is 
coded to indicate that the length in the block size (BLKSIZE) field of the DCB 
is to be used. 
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CNTRL 



The CNTRL macro instruction is used to control printing and stacker selection on 
the 3525 under both BSAM and QSAM (CNTRL for stacker selection is discussed 
under Macro Instructions in the 3505 section of this book). Under BSAM, all 
output operations must be tested for completion before the CNTRL instruction 
is issued. 

The numbers of the lines on an individual card correspond to the channel numbers 
as designated in the following figure. 



Line Number 


Channel Number 


1 


1 


2 




3 


? 


4 




5 


3 


6 




7 


4 


8 




9 


5 


10 




11 


fi 


12 




13 


7 


14 




15 


8 


16 




17 


9 (nvfirflnw) 


18 




19 


10 


20 




21 


11 


22 




73 


1? (overflow) 


24 




25 





The channels all correspond to odd numbered lines; an even numbered line can be 
designated by skipping to the channel which immediately precedes it and then spacing. 

The CNTRL macro instruction is written as follows: 



[symbol] 



CNTRL 



DCB address, 




• DCB address — the address of the DCB for the output device 

• SP — space (one, two, or three) lines on a card. 

• SK - skip to a channel (1 through 12) on a card. 

Note: A line can also be designated for printing using standard ASCII control 
characters or machine code control characters. These methods of control are 
described in 3525 Print Only, Printing Control. 
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PRTOV 



The PRTOV macro instruction tests for overflow channels nine and twleve. An 
overflow condition on either of these channels causes: 

1. a transfer of control to the overflow processing routine (if the address of this 
routine is specified in the overflow exit address entry); or 

2. a skip to channel one to begin printing on the next card for print only. 

The PRTOV macro instruction is written as follows: 



[symbol] 



PRTOV 



9 



DCB address, /12U overflow exit address] 



• DCB address — the address of the print DCB. 

• n?f — tests ^ or e ' tner channel nine or twelve. 

• overflow exit address — the address of the user-supplied routine which gains 
control when an overflow condition is detected on the specified channel. 

If this address is omitted, the 3525 feeds a new card (by performing a skip to 
channel 1), before executing the next WRITE or PUT instruction. (This 
condition would abnormally end with associated data sets.) When the overflow 
routine is given control, the contents of: 



• registers and 1 are destroyed. 

• registers 2 through 13 remain the same. 

• register 14 is the return address. 

• register 15 is the overflow exit routine address. 



PUT 



The PUT macro instruction causes the control program to write a record in a 
sequential data set. 

The controlling program uses the length which is specified in the record length 
(LRECL) field of the DCB as the length of the record which is to be written. 

The PUT macro instruction is written as follows: 



[symbol] 



PUT 



DCB address [,area address] 



• DCB address — The address of the DCB for the data set. 

• area address — There are three modes of retrieval; these may not be intermixed 
within a specified DCB. 

• In locate mode the area address is omitted. When a PUT macro instruction 
is used in locate mode, the address of the buffer for the first record or 
segment is obtained by issuing a PUT macro instruction. QSAM returns 
the address of the next available buffer in register 1, but the record is not 
written until the next PUT macro instruction is issued. For this reason a 
dummy PUT is required before processing starts. 
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• In move mode, the area address refers to the main storage area, which 
contains the record which is to be written. 

• In substitute mode, the area address specifies the address of a main storage 
area in the problem program that contains the next record to be written. 
The area is exchanged for an empty buffer. The address of the empty 
buffer is returned in register 1. 



3525 INTERPRET PUNCH 

If the Interpret Punch function is designated, via the FUNC operand in a DCB or 
the DCB subparameter in a DD statement, an existing output data set will be 
interpreted as well as punched. Specifying the Interpret Punch function in the 
DD statement as shown below, allows the function to be done without 
reassembling the program. 

//PUNCH DD UNIT=3525,DCB=(FUNC=I) 



One macro instruction is all that is needed to both punch and interpret the 
punches on a card. 

The Punch Output Writer takes advantage of the interpret punch function. That is, 
the writer has the ability to interpret an output file with no changes to the routine. 
The DCB can be modified via the console as follows: 

using unit address - S WTR,013,DCB=(FUNC=I) or, 
using device ID - S WTR,3525,DCB=(FUNC=I) 

It can also be specified via a DD statement as follows: 

//OUTPUT DD SYSOUT=(B,INTRPRT) 

Where INTRPRT is a user written routine that is cataloged on the system. 
FUNC=I must be specified in the DCB in the cataloged writer routine. The writer 
routine can be keyed via the console as follows: 

S WTR. INTRPRT, 3525 

Note: The output record must be 80 bytes, or 81 bytes if first character control is 
being used. 

3525 PRINT ONLY 

Two print options are available under 3525 support: (If printing using associated 
data sets, see 3525 Associated Data Sets.) 
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Two-Line Print Option 

The two-line print option is specified in the FUNC operand in the DCB statement 

or the DCB subparameter of the DD statement. The operand must be coded FUNC=WT 

for print only as shown in the following example: 

//PRINT DD UNIT=3525,DCB=(FUNC=WT,LRECL=64,BUFNO=10) 

The T in FUNC=WT specifies that the information will be printed on lines one and 
three regardless of whether the hardware supports the two-line or the multiline 
print feature. 

Multiline Print Option 

The multiline print option is specified in the FUNC operand in the DCB statement 
or the DCB subparameter of the DD statement. The operand is coded FUNC=W. 
(Omitting the T for the two-line-print option automatically selects the multiline 
print option.) 

Printing Control 

Line positioning and card feeding can be controlled by using the CNTRL macro 
instruction, ASCII control characters, machine code control characters, or automatic 
line positioning. The numbers of the lines on an individual card correspond to the 
channel numbers as designated in the following figure. 



Line Number 


Channel Number 


1 


1 


2 




3 


? 


4 




5 


3 


6 




7 


4 


8 




9 


fi 


10 




11 


fi 


12 




13 


7' 


14 




1R 


8 


16 




17 


9 (nvprflnw) 


18 




19 


10 


20 




21 


11 


22 




23 


1? (overflow) 


24 




25 





The channels all correspond to odd numbered lines; an even numbered line can be 
designated by skipping to the channel which immediately precedes it and then 
spacing. 
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CNTRL 



The CNTRL macro instruction is described under Macro Instructions in the 3525 
section of this book. 



ACSI I Control Characters 

A line can be designated for printing by specifying standard ASCII 
character control in the RECFM operand of the DCB. The CNTRL macro instruction 
cannot be issued if first character control is specified in the DCB. If ASCII control 
characters are used and an attempt is made to print beyond line 3 (two-line print 
option), or beyond line 25 (multiline print option), a new card is fed and the informa- 
tion is printed on the first line of that card. 

When using ASCII control characters, spacing occurs before the line is printed. For 
line 1 positioning, the user must specify a blank as the ASCII control character. 
This is necessary because hardware automatically positioned the card at line 1 when 
it was fed. The blank ASCII control character allows data management to increment 
the internal line counter it uses, to monitor line position, from to 1, without 
changing card position for line 1 only. 



Machine Code Control Characters 

A line can also be designated for printing through the use of machine operation codes. 
The use of such codes must be designated in the RECFM operand of the DCB. The 
CNTRL macro instruction cannot be issued if machine codes are designated. The 
print operation command codes are as follows: 



-Bits 7 

XX XXX 1 1 



Line Position Bits 

These five binary bits specify the line 
position on which data moved by this 
instruction will be printed. 

Example: 

00011 = Line position 3 
11001 = Line position 25 



If machine code control characters are used, these conditions cause the print line 
command to be rejected: 

• A line position other than 1 or 3 is specified for a 3525 equipped with a two-line 
card print feature. 

• A line position greater than 25 has been specified. 

• The 3525 is not equipped with either card print feature. 

Note: See 3504 Card Reader/IBM 3505 Card Reader and IBM 3525 Card Punch 
Subsystem, GA21-9124, for the machine code control characters for punching and 
printing. 
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Automatic Line Positioning 

If printing control is not specified by the CNTRL macro instruction or by using con- 
trol characters, print lines are positioned automatically. If consecutive WRITEs or 
PUTs are issued, output is automatically single-spaced. If T is specified in the FUNC 
operand (for the two-line print option), consecutive WRITEs or PUTs print on 
lines 1 and 3. 

Under automatic line positioning for a print only job, card feeding varies according 
to the print option being used. If the two-line feature is in effect, a WRITE or 
PUT following a WRITE or PUT on line 3 causes a card feed, and the information 
for the last WRITE or PUT is printed on line 1 of the following card. If the multi- 
line feature is being used, a WRITE or PUT following a WRITE or PUT on line 25 
causes a card feed, and the information for the last WRITE or PUT is printed on line 
1 of the following card. 

Note: Card feeding must be controlled by the read or punch data set when associated 
data sets are used. This automatically positions the card at line 1 (see Associated 
Data Sets). 



Program-Controlled Line Positioning Summary 

The program may control printing through either the CNTRL macro instruction, 
ASCII control characters, or machine code control characters. 

If printing is program-controlled, the program is totally responsible for all line posi- 
tioning (skipping and spacing). Under these methods of control, the two-line and 
multiline print supports are identical. However, printing is not allowed on any lines 
other than 1 or 3 with the two-line print option. 

Skipping to a channel of a number equal to or less than the present channel posi- 
tion results in line positioning at that channel location on the following card. 
Skipping to a channel of a number greater than the present channel position re- 
sults in line positioning at that channel location on the same card. Attempts to 
overprint by using space suppress (printing twice on the same line,) will result in a 
space and print. 

No user facility is provided to vary stacker selection for a print only operation. How- 
ever, the user can specify stacker selection via the STACK=operand in the DCB. 
If STACKHs not specified, the default is stacker 1. 

The following options are not supported for 3525 print: 

1. Chain channel scheduling. 

2. Fixed blocked, variable or undefined records. 

3. The user totaling facility. 

Records used for print only must be fixed (RECFM=F). 
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3525 ASSOCIATED DATA SETS 

More than one operation can be performed on each card during the execution of a 
program. For example, you may read a card, punch additional data into the card, 
and print data on the same card. The data used for each operation must be in an 
individual data set. Each data set must have a separate DCB. In this case three DCBs 
must be specified. These three data sets are called associated data sets. That is, three 
separate data sets, but all for the same device. Associated data sets are specified 
by coding the proper character(s) for FUNC in each DCB. This example would be 
coded as follows: 



Associated 
Data Sets 




READ 


PUNCH 


PRINT 



See OS or OS/VS Data Management Macro Instruction (GC26-3794 or GC26-3793), 
and the following pages for other FUNC characters to be coded for other associated 
data sets. 

The unit affinity operand of the DD statement must also be used to indicate 
that the data sets are associated with the same device. On the first DD statement 
for an associated data set the coding is UNIT=3525, or UNIT=unit-address; on the 
DD statements for the other associated data sets the coding is UNIT=AFF=READ, 
where READ is the name of the first DD statement. Records used with associated 
data sets must be fixed (RECFM=F). 

A particular sequence of BSAM and QSAM macro instructions must be followed 
when associated data sets are being used. Only four combinations of 3525 functions 
are allowed for associated data sets and must be performed in the sequence shown in 
the following for each: 

• READ and PUNCH 

• READ, PUNCH and PRINT 

• READ and PRINT 

• PUNCH and PRINT 

A print operation can be omitted or repeated, but the first line on a card cannot be 
printed until the card has been punched or, if the card is not to be punched, until the 
card has been read. 

Note: When using locate mode for the punch or printer, the initial PUT (to retrieve 
the buffer address), is not considered an I/O sequencing factor. Therefore, the user 
must issue an extra PUT to print or PUNCH the last record of the data set. 
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FUNC Operand 

The FUNC operand defines the type of data set which is to be opened. The valid 
characters are: 

P PUNCH 

R READ 

W PRINT 

I INTERPRET PUNCH 

The following characters are used to further define the data set: 

X PRINTER 

D DATA PROTECTION 

T TWO-LINE PRINT 



An X is used to distinguish the 3525 printer output data set from the 3525 punch 
output data set, when either a read, punch, and print or a punch and print associated 
data set is opened. (See examples on the following pages.) 

A D indicates the use of the data protection feature. Data protection is used to 
protect data which might otherwise be obliterated by punching in columns which 
already contain data. 

A T indicates the use of the two-line print option. If it is not specified, the multiline 
print option is used automatically. 

Valid combinations of characters which indicate the use of the 3525 features include: 

P PUNCH ONLY 

R READONLY 

W[T] PRINT ONLY 

I INTERPRET PUNCH 

RP READ and PUNCH 

RW [T] READ and PRINT 

PW[XT] PUNCH and PRINT 

RPW[XT] READ, PUNCH, and PRINT 



RP [D] 
RPW [D] 



READ and PUNCH 



DATA PROTECTION 



READ and PUNCH associated data sets enable the 3525 to punch additional data 
into cards after they have been read. The data which is to be read is specified as an 
input data set; the data which is to be punched is specified as an output data set. 
The data control block for each associated data set is then opened. 
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The FUNC operand must be coded in either a DCB or the DCB subparameter of a 
DD statement. The unit must also be specified in the DD statement. In the follow- 
ing example, READ is the DDNAME of the input data set; PUNCH is the DDNAME 
of the output data set. 

//READ DD UNIT=3525,DCB=(FUNC=RP) 

//PUNCH DD UNIT=AFF=READ,DCB=(FUNC=RP) 

Read and punch associated data sets are supported by normal control characters for 
dynamic stacker selection for a punch output data set. If static stacker selection 
is used, the STACK= { \ } operand of the DCB should be specified. The data pro- 
tection option may also be used with the PUNCH data set. 



READ, PUNCH, and PRINT 

Read, punch, and print associated data sets enable the 3525 to read data cards, punch 
additional data into them, and print on them. The data to be read must be specified 
as an input data set; the data to be punched, and that to be printed, must be specified 
as individual output data sets. The data control block for each associated data set 
must be opened. If dynamic stacker selection is used, standard ASCII control char- 
acters should be specified for the punch output data set. If static stacker selection is 
used, the STACK= {1} operand of the DCB should be specified. 

Line positioning for the cards being printed can be specified by either first character 
control in the print record, or through the CNTRL macro instruction. Automatic 
line positioning may also be used. The card is then regarded as a print page with 
the channel assignments shown in the 3525 Print Only section of this book. A 
maximum of 25 lines can be printed on a single card. 

The FUNC operand must be coded in either a DCB or the DCB subparameter of a DD 
statement. The unit must also be specified in the DD statement. In the following 
example, READ is the DDNAME of the input data set; PUNCH and PRINT are the 
DDNAMES of the two output data sets. 

//READ DD UNIT=3525,DCB=(FUNC=RPW) 

//PUNCH DD UNIT=AFF=READ,DCB=(FUNC=RPW) 

//PRINT DD UNIT=AFF=READ,DCB=(FUNC=RPWX) 



READ and PRINT 

Read and print associated data sets enable the 3525 to read cards and then print on 
them. The cards to be read are specified as an input data set; the cards to be printed 
are specified as an output data set. The data control block for each associated data 
set must be opened. 

If dynamic stacker selection of the cards read is required, it must be specified in the 
CNTRL macro instruction of the input data set. Line positioning for the cards be- 
ing printed can be specified by either control characters in the print record, or through 
the CNTRL macro instruction. Automatic line positioning may also be used. 
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The FUNC operand must be coded in either a DCB or the DCB subparameter of the 
DD statement. The unit must also be specified in the DD statement. In the follow- 
ing example, READ is the DDNAME of the input data set; PRINT is the DDNAME 
of the output data set. 

READ DD UNIT=3525,DCB=(FUNC=RW) 

PRINT DD UNIT=AFF=READ,DCB=(FUNC=RWX) 



PUNCH and PRINT 

Punch and print associated data sets are supported in the same manner as read, punch, 
and print associated data sets, except that no input data set is specified. Both the 
cards which are to be punched and the cards which are to be printed must be speci- 
fied as individual output data sets. The data control block for each associated data 
set must be opened. 

As in the cases of read, punch, and print; and read and print associated data sets, 
line positioning for the print data set can be specified by control characters, or 
through the CNTRL macro instruction. Automatic line positioning may also be 
used. 

The FUNC operand must be coded in either a DCB or the DCB subparameter of a 
DD statement. The unit must also be specified in the DD statement. In the follow- 
ing example, PUNCH and PRINT are the DDNAMES of the two output data sets. 



//PUNCH DD UNIT=3525,DCB=(FUNO=PW) 

//PRINT DD UNIT=AFF=PUNCH,DCB=(FUNC=PWX) 



Data Protection 

Data protection is used to protect prepunched data that might otherwise be oblit- 
erated during a punch operation. An 80-byte Data Protection Image (DPI) must be 
stored in SYS1.IMAGELIB for use with data protection. The DPI must contain 
blanks in the colums to be protected an alphameric characters in the columns to 
be punched. The 80-byte format descriptor corresponds to the 80 column card on 
a column-per-column basis. 

The member name for the image in the CSECT and LKED statements cannot exceed 
eight bytes. The first four characters of this member name must be FORM. The 
characters that follow FORM identify the FCB image and are referred to as the image 
identifier. The image identifier must be specified on a DD statement to load the 
image in the FCB buffer. 

Figure 3525-1, Coding for Data Protection, illustrates how to add a data protection 
image to SYS1.IMAGELIB. 
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Figure 3525-1. Coding for Data Protection 

The data card used with the data protection image shown in Figure 3525-1 would 
be in the format shown in Figure 3525-2, Data Card Format. 
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Figure 3525-2. Data Card Format 

The DPI is associated with a particular data set through the use of the FCB operand 
of a DD statement. The FCB operand must be coded FCB=xxxx, where x represents 
the one to four characters being a unique image identifier. This image identifier may 
be any combination of alphameric characters. 
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Data protection can be specified as shown in the following example: 

//READ DD UNIT=3525,DCB=(FUNC=RP,LRECL=80,BUFL= 

80,BUFNO=1) 
//PUNCH DD UNIT=AFF=READ,DCB=(FUNC=RPD,LRECL= 

80,BUFNO=1),FCB=DPI 

The D (in the DCB operand FUNC=RPD), which specifies the use of data protection, 
follows the description of the function which is to be performed; it must be either 
READ and PUNCH; or READ, PUNCH, and PRINT. If D is specified, data manage- 
ment assumes that the data protection image has been stored in SYS1.IMAGELIB. 

The data protection option is not supported for column binary mode. 



Opening Associated Data Sets 

Associated data sets can be opened in any order, but an associated data set cannot be 
processed unless all associated data sets are open. 



Closing Associated Data Sets 

Associated data sets can be closed in any order, but once an associated data set is closed, 
I/O operations cannot be requested for any of the associated data sets. 

CLOSE causes a feed command to be issued when the associated data set that causes 
feeding is closed. This ensures that the last data card is moved from the card trans- 
port to the stacker. If the data set that causes card feeds is not closed before the job 
terminates, the last data card will remain in the card transport. The operation which 
causes a card feed (via CLOSE) for 3525 data sets and associated data sets is as 
follows: 

Data Set Operation Causing 





A Card Feed 


Read 


Read 


Punch 


Punch 


Print 


Print 


Interpret Punch 


Punch 


Read and Punch 


Read 


Read, Punch, and Print 


Read 


Read and Print 


Read 


Punch and Print 


Punch 



If a data delimiter card is used for the input data set, the user program must check 
for it and branch to the EODAA routine. After the program reads a data delimiter 
card, do not attempt to punch or print on it; this will cause the first card of the 
following job to be lost. The data delimiter card remains in the card transport until 
the following job causes a card feed or until nonprocess runout is performed by the 
operator. 
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The following restrictions will prevent the loss of the last data card when data sets 
are closed: 

• All associated data sets must be closed before termination of the job step with- 
out intervening I/O operations for any of the associated data sets. 

• If any data set is reopened, the appropriate associations must be reestablished. 

• If the data set was read in read column eliminate (RCE) mode, a card feed 
will be issued to reset the RCE mode to normal mode when the data set is 
closed. 

Note: In QSAM locate mode, the user must issue a PUT for the last record of an 
associated data set using the 3525 punch and/or print. 

Restrictions for Associated Data Sets 

• I/O operations on a single card must be completed in read, punch, print sequence. 
Two reads in succession or two punches in succession cause abnormal termination 
if performed on the read and punch data sets or the read, punch, and print data 
sets. A print operation can be omitted or repeated, but the first line on a card 
cannot be printed until the card has been punched or, if the card is not to be 
punched, until the card has been read. (If using locate mode, the initial PUT 
precludes this restriction.) 

• You can use either BSAM or QSAM to process associated data sets, but the 
same access method must be used on all associated data sets for the same 3525. 

• The FUNC operand must be coded in a DCB or the DCB subparameter of a DD 
statement for each associated data set. 

• Associated data sets cannot be allocated to SYSIN or SYSOUT. You must re- 
quest the specific device type or unit address in the UNIT operand of the DD 
statement. 

• BUFNO=1 must be specified for a read or punch associated data set. 

• When one of the associated data sets is to be punched, stacker selection can 
occur only with the punch data set. You can accomplish this by using the 
CNTRL macro, control characters, or the STACK operand of the DCB macro 
instruction. For the read and print associated data sets where no punch data 
set is used, stacker selection can be specified only with the read data set through 
the CNTRL macro instruction or STACK operand. 

• Data protection applies only to the read, punch, and print; and read and punch 
associated data sets. It is requested via the FUNC operand of the DCB macro 
instruction and by specifying the image to be used via the FCB operand. 

• All associated data sets must be opened before I/O is performed for any of them. 

• A data delimiter card must neither be punched nor printed on. 

• An attempt to space suppress and print on the same line (overprint) will result in 
abnormal termination. 

• An attempt to feed a card via the print operation causes abnormal termination. 
The following commands cause card feeding and should not be used in conjunc- 
tion with associated data sets: 



3525 Card Punch 25 



1. Skip to 1. (If ASCII control characters are being used to control line posi- 
tion, specify a blank (X'40') as the line 1 control character.) 

2. Skipping to a channel of a number equal to or less than the present channel 
position. 

3. An attempt to print past line 3 (two-line print option), or line 25 (multi- 
line print option). 

4. A space after printing on line 3 (two-line print option), or line 25 (multi- 
line print option). 

5. The use of control characters to position the card at line 1 of the next card. 
Card feeding is controlled by the read or punch data set when associated 
data sets are used. The card is automatically positioned at print line 1 of 
the following card. For ASCII control characters, data management mon- 
itors line position internally with a counter that is set to zeroes at each 
card feed for ASCII only. The user of ASCII control characters specifies 

a blank as the control character to print line 1. This causes the data 
management internal line counter to be advanced by 1 without changing 
the hardware card position. 

The following options are not supported for associated data sets: 

1. Chain channel scheduling. 

2. Fixed blocked, variable or undefined records. Records used with associated 
data sets must be fixed (RECFM=F). 

3. The user totaling facility. 
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APPENDIX A. MESSAGES AND CODES 



COMPLETION MESSAGE 
CODE CODE 



MESSAGES 



003 IEC950I "003-1 3525 Associated Data Set I/O Sequence Error." 

This error occurred because of a read I/O sequence error. 
For read and punch; and read, punch, and print associa- 
ted data sets, the user must maintain the READ/WRITE 
(or GET/PUT) sequence for normal operation. Every 
READ (or GET) must be followed by a WRITE (or 
PUT) to punch the card. If the user does not want to 
punch information, he must punch blanks. The initial 
PUT to punch when using locate mode precludes this 
restriction. 

003 IEC950I "003-2 3525 Associated Data Set I/O Sequence Error." 

This error occurred because of a punch I/O sequence 
error. For read and punch; and read, punch, and print 
associated data sets, the GET and PUT (or READ and 
WRITE) for the read and punch portion of the associa- 
ted data set must be executed in the proper sequence 
(GET or READ followed by a PUT or WRITE to punch) 
for every card. The initial PUT to punch when using 
locate mode precludes this restriction. 

003 IEC950I "003-3 3525 Associated Data Set I/O Sequence Error." 

This error occurred because of a print I/O sequence 
error. For a read and print, and punch and print associa- 
ted data sets, the READ and PUNCH operation for a 
particular card must be executed before the PRINT 
operation is executed for that card. However, printing 
can be performed up to 25 times on that same card. If 
an attempt is made to skip to another card during the 
PRINT operation of an associated data set, the program 
is abnormally ended. The initial PUT to print when 
using locate mode precludes this restriction. 

004 IEC951I "004 Invalid Format Card or Invalid Device for OMR." 

Register 15 contains a return code of 5. 
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COMPLETION MESSAGE 
CODE CODE 



MESSAGES 



004 IEC952I "004 Conflicting/Invalid DCB FUNC or Related Parame- 

ters." 

The meaning of the return codes in register 15 are as 
follows: 

1 — Indicates invalid DCB FUNC parameters. 

2 — Indicates invalid/FUNC/CNTRL combinations. 

3 — Indicates conflicting associated data set access 

methods. 

4 - Indicates an invalid DCB for a 3505 or 3525. 

004 IEC953I "004 Data Protection Image Was Not Found." 

Register 15 contains a return code of 6. Possible reasons 
for this error are: 

1. Image was never loaded in SYS1. IMAGELIB. 

2. Volume on which SYS1. IMAGELIB resides was not 
mounted. 

3. SYS1. IMAGELIB data set is not cataloged. 
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[■■■ ■■ 



DECEMBER 

■■■■ ■■ 



$5.95 



■ ■■ 



NOVEMBER 
JL_0 



$5.95 



■ ■ 



OCTOBER 

XI 



$5.95 



■ !■ 



SEPTEMBER 



$5.95 



AUGUST 



$5.95 



JULY 



$5.95 



\ 



\ 




\ 



\ 



\ 



\ 



\ 



\ 



\ 



JUNE 



$5.95 



MAY 



$5.95 



APRIL 



$5.95 



MARCH 
■ ■■ 



$5.95 



1MJL 



FEBRUARY 
_J 



$5.95 



JANUARY 



I I 

I I I 

1 I 

II I 



$5.95 



I I 



I I I 



I I 



I I 



I I 



I I 



MR. JOHN DOE 
3525 ANY STREET 
ANYNAME CITY, USA 



00000 



I ■ I 

PLEASE RETURN THIS BILL CARD WITH YOUR PAYMENT. 
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IBF298I T30102 SYSOUT=B. 

//T30102 JOB (0000, X 

// 94 30 ,3 66943, 15921) , ' HOLBERT' , MSGLEVEL=1 

// EXEC ASHFCLG,PARM.ASH= , DECK,LOAD« 

XXftgH EXEC PGH=IEUASH,PAFM=«LOAE, NODECK',REGI0N = 78K 00000010 

XXSTSPRINT DD SYSO0T=A 00000020 

XXSISGO DD DSNAME=&LOADSET,UNIT=SYSSQ,SPACE= (80, (200,50) ) , X00000030 

XX DISP= (MOD, PASS) 00000040 

XXSISUT1 DD DSNAHE=6SYSUT1,UNIT=SYSDA, SPACED (1700, (400,50)) 00000050 

XXSTSDT2 DD DS NAHE=&SYSUT2, tlNIT=SYSSQ, SPACE= ( 1700, (400, 50) ) 00000060 

XXSTSUT3 DD DSNAME=8SYSUT3,SPACE= (1700, (400 ,50) ) , X00000070 

XX DHIT=SYSDA 00000080 

XXSISIIB DD DSRAHE=SYS1. HACLIB, DISP=SHR IEUD 00000090 

//ASH.STSPONCH DD SYSOUT=B 

//ASH.SISIN DD * 

IBF236I ALLOC. FOR T30102 ASM 

IEF237I 133 ALLOCATED TO SYSPRINT 

IEF237I 130 ALLOCATED TO SYSGO 

IBF237I 131 ALLOCATED TO SYSUT1 

IBF237I 132 ALLOCATED TO SYSUT2 

IBF237I 133 ALLOCATED TO SYSUT3 

IEF237I 130 ALLOCATED TO SYSLIB 

IEF237I 250 ALLOCATED TO SYSPUNCH 

IBF237I 132 ALLOCATED TO SYSIN 
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EXTERNAL SYMBOL DICTIONARY PAGE 1 

SYHBOL TYPE ID ADDR LENGTH LD ID 15.12 6/22/73 

HPBPGH SD 01 000000 000540 



Sample Program 31 



LOC OBJECT CODE 
000000 



ADDR1 ADDR2 STMT 

1 
2 
3 

4 
5 
6 

7 



SOURCE STATEMENT 



F01OCT71 6/22/73 



START 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000004 
00000B 

oooooc 

OOOOOD 
OOOOOE 
OOOOOF 



000000 

000000 90EC DOOC 
000004 05C0 
000006 

000006 50 DO C20E 

000001 1880 
OOOOOC 4100 C20A 
000010 SODS 0008 



000014 

000014 4510 C016 

000018 8? 

000019 0004E0 
00OO1C Oft 13 

000911 4110 C4DA 
000022 4100 C2F8 
000026 58F0 1030 



ooooc 



00214 



00 210 
00008 



000 1C 



0C4E0 
0C2FE 
00030 



** 
** 
** 
8 ** 
g ** 

10 ** 

11 * 

12 ** 

13 *** 
II* ** 

15 * 

16 R1 

17 R2 

18 R3 

19 m 

20 R 5 

21 R6 

22 R7 

23 R8 

24 R9 

25 RIO 

26 R11 

27 R12 

28 R13 

29 R14 

30 R15 

31 ** 

32 *** 

33 ** 
34 

35 + 

36* 

37 

38 

39 

40 
«1 

42 

43 ** 

44 *** 

45 ** 
46 

47 + 
48+ 
49 + 
50* 
51 + 
52 

53 + 

54 + 

55 + 



THIS PROGRAM CAUSES DATA TO BE PUNCHED FROM THE 2540 PUNCH. 
THEN, THAT SAME DATA IS READ FROM AND PRINTED ON THE BILL 
CARD BY THK 3525 DEVICE. IT, ALSO, IS PUNCHED IN THE BILL 
CARD AGAIN. 'AFTER ALL OF THIS IS DONE, THE NAME AND ADDRESS 
OF THE CUSTOMER IS PRINTED ON THE BILL CARD FOR HAILING 
PURPOSES. 





EQUATES 


EQU 


1 


EQU 


2 


EQU 


3 


EQU 


4 


EQU 


5 


EQU 


6 


EQU 


7 


EQU 


8 


EQU 


9 


EQU 


10 


EQU 


11 


EQU 


12 


EQU 


13 


EQU 


14 


EQU 


15 



LINKAGE CONVENTIONS AND ADDRESSABILITY 

SAVE (14,12) 

DS OH 

STM 14,12,12(13) SAVE REGISTERS 

BALR R12,0 ESTABLISH ADDRESSABILITY OF PGH 



USING *,R12 



ST 
LR 
LA 
ST 



OPEN 

CNOP 

BAL 

DC 

DC 

SVC 

PUT 

LA 

LA 

L 



R13,SAVAREA+4 
R8,R13 
R13,SAVAREA 
R13,8 (R8) 



SET UP BASE REGISTER 



GET SAVE AREA ADDRESS 
STORE SAVE AREA ADDRESS 



OPEN PUNCH DCB TO PUNCH DATA 



(PCHDCB, (OUTPUT)) 
0,4 

1,*+8 LOAD REG1 W/LIST ADDR. 
AL1 (143) OPTION BYTE 
AL3 (PCHDCB) DCB ADDRESS 
19 ISSUE OPEN SVC 

PCHDCB .DATA1 PUNCH BILL CARD FOF JANUARY 

1, PCHDCB LOAD PARAMETER REG 1 
0,DATA1 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
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PAGE 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 6/22/73 



00002A 05EF 



0000 2C 


4110 


C4DA 


000030 


4100 


C30C 


000034 


58F0 


1030 


000038 


05EF 




00003A 


4110 


C4DA 


00003E 


4100 


C320 


0000U2 


58F0 


1030 


000046 


05 EF 




000048 


4110 


C4DA 


00004C 


4100 


C334j 


0000 50 


58F0 


1030 1 


000054 


05EF 




000056 


4110 


C4DA 


00005A 


4100 


C34 8 


00005E 


58F0 


1030 


000062 


05 EF 




000064 


4110 


C4DA 


000068 


4100 


C35C 


00006C 


58F0 


1030 


000070 


05 EF 




000072 


4110 


C4DA 


000076 


4100 


C370 


00007A 


58F0 


1030 


00007E 


05 EF 




000080 


4110 


C4DA 


000084 


4100 


C384 


000088 


58F0 


1030 


00008C 


05 EF 




00008E 


4110 


C4DA 


000092 


4100 


C398 


000096 


58F0 


1030 


00009A 


05 EF 




00009C 


4110 


C4DA 


OOOOAO 


4100 


C3AC 


0000A4 


58F0 


1030 


0000A8 


05EF 




0000AA 


4110 


C4DA 


0000 AE 


4100 


C3C0 


0000B2 


S8F0 


1030 


0000B6 


05 EF 




0000B8 


4110 


C4DA 


0000 BC 


4100 


C3D4 


OOOOCO 


58F0 


1030 





56 + 


BALR 




57 


PUT 


004E0 


58+ 


LA 


00312 


59 + 


LA 


C0030 


60 + 


L 




61 + 


BALR 




62 


PUT 


004E0 


63 + 


LA 


00326 


64 + 


LA 


00030 


65 + 


L 




66 + 


BALR 




67 


FUT 


004E0 


68+ 


LA 


0033A 


69 + 


LA 


00030 


70+ 


L 




71 + 


BALR 




72 


PUT 


0C4E0 


73 + 


LA 


0034E 


74 + 


LA 


00030 


75 + 


L 




76 + 


BALR 




77 


PUT 


004E0 


78+ 


LA 


00362 


79 + 


LA 


00030 


80+ 


L 




81 + 


BALR 




82 


PUT 


C04E0 


83 + 


LA 


00376 


84 + 


LA 


00030 


85 + 


L 




86 + 


BALR 




87 


PUT 


004E0 


88+ 


LA 


0038A 


89 + 


LA 


00030 


90+ 


L 




91 + 


BALR 




92 


PUT 


004E0 


93 + 


LA 


0039E 


94 + 


LA 


C0030 


95 + 


L 




96 + 


BALR 




97 


FUT 


004E0 


98 + 


LA 


003B2 


99 + 


LA 


00030 


100 + 


L 




101 + 


BALR 




102 


PUT 


004EO 


103 + 


LA 


003C6 


104 + 


LA 


00030 


105+ 


L 




106 + 


BALR 




107 


PUT 


004E0 


108+ 


LA 


003DA 


109 + 


LA 


00030 


110+ 


L 



14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA2 PUNCH BILL 

1,PCHDCB LOAD PARAMETER REG 1 
0,DATA2 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHCCB,DATA3 PUNCH BILL 

1,PCHDCB LOAD PARAMETER REG 1 
0,DATA3 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA4 PUNCH BILL 

1.PCHDCE LOAD PARAMETER REG 1 
0,DATA4 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA5 PUNCH BILL 

1,PCHDCE LOAD PARAMETER REG 1 
0,DATA5 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA6 PUNCH BILL 

1,PCHDCB LOAD PARAMETER REG 1 
0,DATA6 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB.DATA7 PUNCH BILL 

1/PCHDCE LOAD PARAMETER REG 1 
0,DATA7 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA8 PUNCH BILL 

1,PCHDCB LOAD PARAMETER REG 1 
0,DATA8 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHCCB,DATA9 PUNCH BILL 

1,PCHDCB LOAD PARAMETER REG 1 
0,DATA9 LOAD PARAMETER PEG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA10 PUNCH BILL 

1,PCHDCE LOAD PARAMETER REG 1 
0.DATA10 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHDCB,DATA11 PUNCH BILL 

1.PCHDCB LOAD PARAMETER REG 1 
0,DATA11 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT ROUTINE ADDR. 
14,15 LINK TO PUT ROUTINE 
PCHECB,DATA12 PUNCH BILL 

1,PCHDCB LOAD PARAMETER REG 1 
0,DATA12 LOAD PARAMETER REG 
15,48(0,1) LOAD PUT .ROUTINE ADDR. 



CARD FOR FEBRUARY 



CARD FOR MARCH 



CARD FOR APRIL 



CARD FOR MAY 



CARD FOR JUNE 



CARD FOR JULT 



CARD FOR AUGUST 



CARD FOR SEPTEMBER 



CARD FOP OCTOBER 



CARD FOR NOVEMBER 



CARD FOR DECEMBER 



Sample Program 33 



LOC OBJECT CODE 
0000C4 05EF 



0000C6 0700 
0000C8 1510 COCA 
0O00CC 80 
OOOOCD O003E0 
OOOODO 0A13 

O00OD2 0700 
OO0OD4 4510 CODA 
0000D8 OF 
0000D9 000480 
OOOODC 8F 
OOOODD 000430 
OOOOEO 0A13 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 



6/22/73 



OOODO 



OOOEO 



0000E2 4110 C42A 
0000E6 58F0 1030 
OOOOEA 05EF 
OOOOEC 184 1 

OOOOEE 4110 C47A 
00OOF2 58F0 1030 
0000F6 05EF 
OO00F8 1851 



OOOOFA 



00430 
000 30 



00480 
00030 



OOOOFA 4110 C3DA 003E0 

OOOOFE 58F0 1030 00030 

000102 05EF 

000104 1831 

000106 D213 4000 C252 00000 00258 

00010C D213 4014 30C0 00014 00000 



000112 4110 C42A 
000116 58F0 1030 
00011A 05EF 
00011C 1841 



00430 
00030 



00011E D213 5000 C252 00000 00258 



111 + 

112 ** 

113 *** 

114 ** 
115 
116 + 
117+ 
118+ 
119 + 
120+ 
121 

122 + 

123 + 
124+ 
125+ 

126 + 

127 + 
128+ 

129 ** 

130 *** 

131 *** 

132 *** 

133 *** 

134 *** 

135 ** 
136 
137+ 

138 + 

139 + 
140 
141 

142 + 

143 + 

144 + 
145 

146 ** 

147 *** 

148 ** 

149 READCARD 
150 

151 + 

152 + 

153 + 
154 
155 
156 
157 
158+ 

159 + 

160 + 
161 

162 ** 

163 *** 

164 ** 
165 



BALR 14,15 LINK TO PUT ROUTINE 



OPEN (FEADIN, (INPUT) ) OPEN ASSOCIATED DCBS TO COMPLETE 

CNOP 0,4 

BAL 1,*+8 LOAD REG1 W/LIST ADDR. 

DC AL1(128) OPTION BYTE 

DC AL3(READIN) DCB ADDRESS 

SVC 19 ISSUE OPEN SVC 

OPEN {PRINTOUT, (OUTPUT) ,PUNCHOUT, (OUTPUT) ) INFO ON BILL CARDS 

CNOP 0,4 

BAL 1,*+12 LOAD REG1 W/LIST ADDR. 

DC AL1(15) OPTION BYTE 

DC AL3 (PRINTOUT) DCB ADDRESS 

DC AL1(143) OPTION BYTE 

DC AL3(PUNCHOUT) DCB ADDRESS 

SVC 19 ISSUE OPEN SVC 

THE FOLLOWING 'PUTS' TO THE PUNCH AND PRINT DATA SETS GET 
THE ADDRESS OF THE BUFFERS. THE FIRST "POT 1 IN LOCATE MODE 
CAUSES NO INPUT/OUTPUT OPERATION. THEREFORE, NO SEQUENCE 
CHECKING IS PERFORMED DURING THE FIRST «PUT« ISSUED FOR THE 
ASSOCIATED DATA SETS. 



PUT 

LA 

L 

BALR 

LR 

PUT 

LA 

L 

BALR 

LR 



EQU 

GET 

LA 

L 

BALR 

LR 

MVC 

BVC 

PUT 

LA 

L 

BALR 

LR 



PUNCHOUT GET ADDR OF 

1,PUNCHOUT LOAD PARAMETER REG 1 

15,48(0,1) LOAD PUT ROUTINE ADDR. 

14,15 LINK TO PUT ROUTINE 

R4,R1 SAVE BUFFER 

PRINTOUT GET ADDR OF 

1, PRINTOUT LOAD PARAMETER REG 1 

15,48(0,1) LOAD PUT ROUTINE ADDH. 

14,15 LINK TO PUT ROUTINE 

R5,R1 SAVE BUFFER 



BUFFER FOR PUNCH DCB 



ADDR IN REGISTER 
BUFFER FOB PRINT 



4 
DCB 



ADDR IN REGISTER 5 



READIN READ THE DATA CARD 

1,READIN LOAD PARAMETER REG 1 

15,48(0,1) LOAD GET ROUTINE ADDR. 

14,15 LINK TO GET ROUTINE 

R3,R1 SAVE BUFFER ADDR FOR 

0(20, R4) .BLANKS CLEAR FIRST BYTES OF 

20 (20, R4) ,0(R3) MOVE DATA INTO PUNCH 

PUNCHOUT PUNCH DATA INTO CARD 

1, PUNCHOUT LOAD PARAMETER REG 1 

15,48(0,1) LOAD PUT ROUTINE ADDR. 

14,15 LINK TO PUT ROUTINE 

R4,R1 SAVE BUFFER ADDRESS 



FURTHER USE 

BUFFER 

BUFFER 



MVC (20, R5) , BLANKS 



CLEAR FIRST BYTES OF BUFFER 



34 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT 



SOURCE STATEMENT 



FO 10CT7 1 



6/22/73 



000124 D22B 5014 3000 00014 00000 



00012A i»110 C47A 
00012E 58F0 1030 
000132 05EF 
000134 1851 



00480 
00030 



000136 D227 5000 C252 00000 00258 
00013C D217 5028 C27A 00028 00280 



000142 4110 C47A 
000146 4100 0008 
00014& 1300 
00014C 58F1 0054 
000150 05EF 

000152 4110 C47A 
000156 58F0 1030 
00015A 05EF 
0001 5C 1851 



00480 
00008 



00054 



C0480 
00030 



00015E D227 5000 C252 00000 C0258 
000164 D217 5028 C292 00028 00298 



00016A 4110 C47A 
00016E 4100 0009 
000172 1300 
000174 58F1 0054 
000178 05EF 

00017A 4110 C47A 
00017E 58F0 1030 
000182 05EF 
000184 1851 



00480 
00009 



00054 



00480 
000 30 



000186 D227 5000 C252 00O00 00258 
00018C D217 5028 C2AA 00028 0C2BC 



000192 4110 C47A 
000196 4100 OOOA 
00019A 1300 
00019C 58F1 0054 
O001A0 05EF 



00480 
0000A 



00054 



166 
167 

168 + 

169 + 
170+ 
171 

172 ** 

173 *** 

174 ** 
175 
176 

177 ** 

178 *** 

179 *** 

180 *** 

181 ** 
182 

183 + 

184 + 

185 + 
186+ 
187 + 
188 

189 + 

190 + 

191 + 
192 

193 ** 

194 *** 

195 ** 
196 
197 
198 

199 + 

200 + 

201 + 

202 + 

203 + 
204 
205 + 
20 6 + 
207 + 
2 08 

209 ** 

210 *** 

211 ** 
212 
213 
214 

215 + 

216 + 

217 + 

218 + 

219 + 
220 



nvc 

PUT 

LA 

L 

BALR 

LB 



KVC 
MVC 



20 (44, R5) ,0 (R3) MOVE DATA INTO PRINT BUFFER 

PRTNTOUT PRINT FIRST LINE OF DATA ON CARD 

1, PRINTOUT LOAD PARAMETER REG 1 

15,48(0,1) LOAD PUT ROUTINE ADDR. 

14,15 LINK TO PUT ROUTINE 

P5,R1 SAVE BUFFER ADDRESS 



(40, R5) , BLANKS 
40(24, R5) ,NAME 



CLEAR FIRST BYTES OF BUFFER 
MOVE PRINT DATA INTO BUFFER 



THE 'CNTRL* MACRO IS USED TO REGULATE LINE POSITIONING. 
SKIPS AND SPACES ABE USED SO THAT PRINTING IS ONLY PERFORMED 
ON THE DESIRED LINES OF THE BILL CARD. 



CNTRL PRINTOUT, SK, 8 



SKIP TO LINE 15 OF BILL CARD 



LA 1, PRINTOUT LOAD PARAMETER REG 1 

LA 0,8(0,0) LOAD PARAMETER REG 

LCR 0,0 INDICATE SK ACTION 

L 15,84(1,0) LOAD CONTROL ROUT. ADDR 

BALR 14,15 LINK TO CONTROL ROUT. 

PUT PRINTOUT PRINT NAME ON CARD 

LA 1, PRINTOUT LOAD PARAMETER REG 1 

L 15,48(0,1) LOAD PUT ROUTINE ADDR. 

BALR 14,15 LINK TO PUT ROUTINE 

LR R5,R1 SAVE BUFFER ADDRESS 



MVC (40, R5) , ELANKS 
MVC 40(24, R5) , ADDRESS 
CNTRL PRINTOUT, SK, 9 



CLEAR FIRST 40 BYTES OF BUFFER 
MOVE CUSTOMER ADDR INTO BUFFER 
SKIP TO LINE 17 OF BILL CARD 



LA 1, PRINTOUT LOAD PARAMETER REG 1 

LA 0,9(0,0) LOAD PARAMETER REG 

LCR 0,0 INDICATE SK ACTION 

L 15,84(1,0) LOAD CONTROL POUT. ADDR 

EALR 14,15 LINK TO CONTROL ROUT. 

PUT PRINTOUT PRINT ADDRESS ON BILL CARD 

LA 1, PRINTOUT LOAD PARAMETER REG 1 

L 15,48(0,1) LOAD PUT ROUTINE ADDR. 

BALR 14,15 LINK TO PUT ROUTINE 

LR R5,R1 SAVE BUFFER ADDRESS 



MVC (40 ,R5) , ELANKS CLEAR FIRST 40 BYTES OF BUFFER 

MVC 40(24, R5) .CITYST MOVE CITY/STATE INTO BUFFER 

CNTRL PRTNTOUT, SK, 10 SKIP TO LINE 19 OF BILL CARD 

LA 1, PRINTOUT LOAD PARAMETER REG 1 

LA 0,10(0,0) LOAD PARAMETER REG 

LCR 0,0 INDICATE SK ACTION 

L 15,84(1,0) LOAD CONTROL ROUT. ADDR 

BALE 14,15 LINK TO CONTROL ROUT. 

PUT PRINTOUT PRINT CITY/STATE ON BILL CARD 



Sample Program 35 
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LOC OBJECT CODE 

0001A2 4110 CU7A 
0001A6 58F0 1030 
0001AA 05EF 
0001AC 1851 



ADDR1 ADDR2 STMT SODRCE STATEMENT 



F01OCT71 6/22/73 



00480 
00030 



00C1AE D209 5000 C252 00C00 00258 
0001B4 D235 500A C2C2 OOOOA 002C8 



0001BA 4110 C47A 
0001BE 4100 000C 
0001C2 1300 
0001C4 58F1 0054 
0001C8 05EF 

0O01CA 4110 C47A 

0C01CE 4100 0002 

00011)2 58F1 0054 

0001B6 05EF 

0001D8 4110 C47A 
0001DC 58F0 1030 
0001E0 05EF 
0001F2 1851 



00C 1E4 47F0 C0F4 



0001E8 

0001E8 

0001E8 4510 C1EE 

0001HC 00 

0001ED 0003EO 

0001F0 80 

0001F1 0004 isO 

0001 F4 0A14 

0001F6 0700 
0001F8 4510 C1FE 
0001FC 00 
0001FD 000430 

000200 80 

000201 000480 
000204 0A14 
000206 58D0 C20E 

00020A 98EC DOOC 
00020E 07FE 



000210 0000000000000000 



00480 

ooooc 



00054 



00 4 80 
0C002 
00054 



00480 
00030 



00204 



00214 
OOOOC 



221 + 

222 + 

223 + 
224 

225 ** 

226 *** 

227 ** 
228 
229 
230 

231 + 

232 + 

233 + 

234 + 

235 + 
236 
237 + 
2 3 8+ 
239 + 
2"0 + 
241 

242 + 

243 + 

244 + 
245 

246 ********* 

247 *' 
248 

249 * 

250 ********* 

251 EOJOB 
2 52 

2 53 + 
254+ 

255 + 

256 + 
2 57+ 

258 + 

259 + 
260 

261 + 

262 + 

263 + 

264 + 

265 + 
266+ 
267+ 
268 
269 
270 + 
271+ 

272 ** 

273 *** 

274 ** 

275 SAVAREA 



LA 1, PRINTOUT LOAD PARAMETER REG 1 

1 15,48(0,1) LOAD PUT ROUTINE ADDR . 

BALR 14,15 LINK TO PUT ROUTINE 

LR R5,R1 SAVE BUFFER ADDRESS 



MVC (10, R5) , ELANKS 
MVC 10 (54, S5) ,NOTE 
CNTRL PRINTOUT, SK, 12 



CLEAR FIRST 10 BYTES OF BUFFER 
PUT REPLY NOTE IN PRINT BUFFER 
SKIP TO LINE 23 OF BILL CARD 



LA 1, PRINTOUT LOAD PARAMETER REG 1 

LA 0,12(0,0) LOAD PARAMETER REG 

LCR 3,0 INDICATE SK ACTION 

L 15,84(1,0) LOAD CONTROL ROUT. ADDR 

BALR 14,15 LINK TO CONTROL ROUT. 



CNTEL PRINTOUT, SP, 2 



SPACE DOWN TO LINE 25 OF CARD 



LA 1, PRINTOUT LOAD PARAMETER REG 1 

LA 0,2(0,0) LOAD PARAMETER REG 

L 15,84(1,0) LOAD CONTROL ROUT. ADDR 

BALR 14,15 LINK TO CONTROL ROUT. 

PUT PRINTOUT PRINT LAST LINE ON DILL CARD 

LA 1, PRINTOUT LOAD PARAMETER REG 1 

L 15,48(0,1) LOAD PUT ROUTINE ADDR. 

BALR 14,15 LINK TO PUT ROUTINE 

LR R5,R1 SAVE BUFFER ADDRESS 



******************************* 



B 



RFADCARD 



BRANCH TO PROCESS ANOTHER CARD 



******************************* 

EOU * 

CLOSE (READIN,,PCHDCB) CLOSE ALL DCB'S 

CNOP 0,4 

DAL 1,*+12 BRANCH AROUND LIST 

DC AL1(0) OPTION BYTE 

DC AL3(READIN) DCB ADDRESS 

DC AL1(128) OPTION BYTE 

DC AL3(PCHDCB) DCB ADDRESS 

SVC 20 ISSUE CLOSE SVC 

CLOSE (PIJNCHOUT, , PRINTOUT) CLOSE ALL DCB'S 

CNOP 0,4 

BAL 1,*+12 BRANCH AROUND LIST 

DC AL1 (0) OPTION BYTE 

DC AL3(PUNCHOUT) DCB ADDRESS 

DC AL1(128) OPTION BYTE 

DC AL3 (PRINTOUT) DCB ADDRESS 

SVC 20 ISSUE CLOSE SVC 

L Rl3,SAVAREA+4 RESTORE ADDR IN SAVE REGISTER 

RETURN (14,12) RESTORE ALL REGISTERS 

LM 14,12,12(13) RESTORE THE REGISTERS 

BR 14 RETURN 

DC»S AND DCB STATEMENTS 
DC WO* 



36 
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LOC 


OBJECT CODE ACDR1 ACDR2 STMT 


SOURCE 


ST 


000258 


4040404040404040 


276 


BLANKS 


DC 


000280 


D4D94B40D1D6C8D5 


277 


NAME 


DC 


000298 


F3F5F2F540C1 D5 E8 


278 


ADDRESS 


DC 


0002B0 


C1D5E8D5C1D4C540 


279 


CITYST 


DC 


0002C8 


D7D3C5C1E2C54 0D9 


280 


NOTE 


DC 


0002FE 


D1C1D5E4C1D9E840 


281 


DATA1 


DC 


000312 


C6C5C2D9E4C1D9E8 


282 


DATA2 


DC 


000326 


D4C1D9C3C8404040 


283 


DATA 3 


DC 


000 33 A 


C1D7D9C9D340404C 


284 


DATA4 


DC 


00034E 


D4C1E84040404040 


285 


DATA5 


DC 


000362 


D1E4D5C5404C4040 


2 86 


DATA6 


DC 


000376 


D1E4D3E840404040 


287 


DATA7 


DC 


00038A 


C1E4C7E4E2E34040 


288 


DATA8 


DC 


00039E 


E2C5D7E3C5D4C2C5 


289 


DATA9 


DC 


0003B2 


D6C3E3D6C2C5D94 


290 


DATA10 


DC 


0003C6 


D5D6E5C5D4C2C5D9 


291 


DATA11 


DC 


0003DA 


C4C5C3C5D4C2C5D9 


292 

293 
2 94 
295 


DATA12 
** 

*** 
** 


DC 






2 96 


READIN 


DC 



F01OCT71 6/22/73 



CL40' • 

CL24'MR. JOHN DOE • 

CL24' 3525 ANY STREET • 

CL24' ANYNAME CITY, USA 00000 • 

CL54'PLEASE RETURN THIS BILL CARD WITH YOUR PAYMENT. • 

CL20 'JANUARY $5.95 • 

CL20'FEBPU ARY $5.95 

CL20'MARCH $5.95 

CL20'APRIL $5.95 

CL20'MAY $5.95 

CL20'JUNE $5.95 

CL20'JULY $5.95 

CL20 • AUGUST $5.95 

CL20' SEPTEMBER $5.95 

CL20' OCTOBER $5.95 

CL20'NOVEMBER $5.95 

CL20 'DECEMBER $5.95 



DDNAME=READD, DSORG=PS, EO DAD=EOJOB,BLKS IZE=80 , L8ECL=80, 
BUFNO= 1,DEVD=RD, MACRF=GL, RECFM=F, FUNC=RP H 



0003DE 
OO03E0 
0003F0 



298** 




299+* 




300* 


ORG 


301+READIN 


DS 


302 + 


ORG 



DATA CONTROL BLOCK 

*-16 TO ELIMINATE UNUSED SPACE 
OF'O' ORIGIN ON WORD BOUNDARY 
*+16 TO ORIGIN GENERATION 



3 04 + * 



READER/PUNCH DEVICE INTERFACE 



OO03F0 0000 
0003F2 00 
0003F3 70 



306 + 


DC 


30 7+ 


DC 


308+ 


DC 



BL2'0000000000000000' MODE, STACK, DEVT 

X'OO' 

AL1(112) FUNC 



310+* 



COMMON ACCESS METHOD INTERFACE 



0003F4 01 
0003F5 000001 
0003 F8 0000 
000 3FA 4000 
0003FC 00000001 



312 + 


DC 


313 + 


DC 


314+ 


DC 


315 + 


DC 


316 + 


DC 



AL1{1) BU FNO 
AL3(1) 3IIFCB 
AL2(0) BUFL 

BL2»0100000000COOOCO« DSORG 
A(1) IOBAD 



318+* 



FOUNDATION EXTENSION 



000400 00 

000401 0001E8 

000404 80 

000405 000000 



320 + 


DC 


321 + 


DC 


322 + 


DC 


323 + 


DC 



BL1 '00000000' BFTFK.BFLN, HIARCHY 
AL3(EOJOB) EODAD 
BL1' 10030000' RECFM 
AL3(0) EXLST 



FOUNDATION BLOCK 



000408 D9C5C1C4C4404040 
000410 02 



327 + 

3 28 + 



DC 
DC 



CL8'KEACD' DDNAME 
BL1'00000010' OFLGS 



Sample Program 37 



LOC OBJECT CODE 



ADDB1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 6/22/73 



000411 00 

000412 4800 



329 + 

330 + 



DC 
DC 



BLVOOOOOOOO' IFL3 
EI^'OIOOIOOOOOOOOOOO' MACE 



332+* 



000414 00 
0C0415 00OOC1 
000418 00000301 
00041C 0000 
00041 £ 0050 
000420 00000000 
000424 00000001 
000420 00 
000429 000001 



334 + 


DC 


335 + 


DC 


336 + 


DC 


337 + 


DC 


338 + 


DC 


339 + 


DC 


340 + 


DC 


341 + 


DC 


342 + 


DC 



BSAM-BPAM-QSAM INTERFACE 

BLVOOOOOOOO' RER1 

AL3(1) CHECK, GERR, PERR 

A(1) SYNAD 

H«0« CIND1, CIND2 

AL2(80) BLKSIZE 

F»0« WCPO, WCPL, OFFSR, OFFSW 

A(1) IOBA 

AL1(0) NCP 

AL3(1) EOER, EOBAD 



00042C 00000001 
000430 0000 
000432 0050 

000434 00 

000435 000001 
000438 00000000 
0004 3C 0000000 1 



346 + 


DC 


347 + 


DC 


348 + 


DC 


34 9 + 


DC 


350 + 


DC 


351 + 


DC 


352 + 


DC 



353 PUNCHOOT DCB 



QSAM INTERFACE 

A(1) RECAD 

H'O' QSWS 

AL2(80) LRECL 

BLVOOOOOOOO* EROPT 

AL3(1) CNTRL 

F'O' PRECL 

A (1) BOB 

DDNAME=PCHDD, DSOEG=PS, BLK SIZE=40 , LR ECL=40 ,BUFNO= 1, 

DEVD=RD,MACRF=PL, RECFB = F, FUNC=RPW 



000430 
000430 
004 4 



000440 0000 

000442 00 

000443 70 



00044H 01 
000445 000001 
000448 0000 
00044A 4000 
00044C 00000001 



000450 00 

000451 000001 

000454 80 

000455 000000 



355+* 




356 + * 




357 + 


ORG 


3 5 8+ PUNCH OUT 


DS 


359 + 


ORG 


361 + * 




363 + 


DC 


364+ 


DC 


365 + 


DC 



367+* 



369 + 


DC 


370 + 


DC 


371 + 


DC 


3 72 + 


DC 


373 + 


DC 



375+* 

377 + 

378 + 
379+ 
380 + 



DC 
DC 
DC 
DC 



DATA CONTROL BLOCK 

*-16 TO ELIMINATE UNUSED SPACE 
OF'O' ORIGIN ON WORD BOUNDARY 
*+16 TO ORIGIN GENERATION 

READER/PUNCH DEVICE INTERFACE 

BL2'000OO000OO00COO0' MODE, STACK, DEVT 

X'OO* 

AL1(112) FUNC 

COMMON ACCESS METHOD INTERFACE 

AL1(1) BUFNO 
AL3(1) BUFCB 
AL2(0) BUFL 

BL2'01000000000GOCOO« DSORG 
A(1) IOBAD 

FOUNDATION EXTENSION 

BLI'OOOOOOOO' BFTEK, BFLN, HIARCHY 

AL3(1) EODAD 

BL1« 10000000* SECFM 

AL3(0) EXLST 



38 



LOC OBJECT CODE 



ADCR1 ADDR2 



000458 D7C3CBC4C4404040 

000460 02 

000461 00 

000462 0048 



000464 00 

000465 000001 
000468 000000C1 
00046C 0000 
00046E 0028 
000470 00000000 
000474 00000001 

000478 00 

000479 000001 



00047C 00000001 
000480 0000 
000482 0028 

000484 00 

000485 000001 
0004 88 000O0000 
00048C 00000001 



;TKT S0URC3 STATFKEN-'" 
3H2 + * 



F01OCT71 6/22/73 



3 84 + 


DC 


38S + 


DC 


386 + 


DC 


387 + 


DC 



3 89+* 



391 + 


DC 


39 2+ 


DC 


393 + 


DC 


394 + 


DC 


3 05 + 


DC 


396 + 


DC 


397+ 


CC 


398+ 


DC 


399 + 


DC 



401 + * 



403 + 


DC 


404+ 


BC 


4 05 + 


DC 


406 + 


DC 


407 + 


DC 


408+ 


DC- 


4 09+ 


DC 



410 PRINTOUT DCB 



FOUNDATION bl.CCK 



CL8TCHDD' DLNAXE 
EL 1* C,0O0OC10' OrLGS 
BI-T^OOijOOOO' tflg 
BL?' 00000000010010^0' 

BS AK-liPAM- 



;A:i INTERFACE 



BI. 1* '.lOOO^CCO «' SEIM 

AI.3(1) CHECK, GLRR, PERR 

A(.1) 5YNAD 

II' 0' CIND1 , CIND2 

AL2(40) BLKSIZE 

F'O' WCPO, «CPL, OFFSR, OFFSW 

AM) 10 E A 

~AL1 (0) NCP 

AL3(1) EOBR, EObAD 

QSAM INTERFACE 

A (1) RECAP 

H'O' QSWS 

AL2(40) LRECL 

BL1' 00000000' EROPT 

AL3(1) CNTRL 

F'O' PRECL 

A(1) EOB 

DDM Ai1E=PE TDD ,DSORG=PS,BLKSIZE = 64, LRECL = 64, DEVD=fiD, 

KACRf=PLC,RECFM=F,FUNC=RPWX,BUFNO=1 



000480 
0004 80 
000490 



000490 0000 

000492 00 

000493 74 



0004 94 01 
000495 000001 
000498 0000 
00049A 4000 
00049C 00000001 



0004A0 00 



412 + * 




413 + * 




414 + 


ORG 


415+PRINTOUT 


OS 


416 + 


ORG 


4 18+* 




420 + 


DC 


421 + 


DC 


422 + 


DC 



424+* 



426 + 


DC 


427+ 


CC 


428 + 


DC 


429 + 


DC 


430+ 


CC 


4 32+* 




434+ 


DC 



DATA CONTROL BLOCK 

*-16 TO ELIMINATE UNUSED SPACE 
OF'C ORIGIN ON WORD BOUNDARY 
*+16 TO ORIGIN GENERATION 

READER/PUNCH DEVICE INTERFACE 

BL2' 0000000000000000' MODE, STACK, DEVT 

X'CO' 

AL1 (116) FUNC 

COMMON ACCESS METHOD INTERFACE 

AL1(1) BUFNO 
AL3(1) BUFCB 
AL2(0) BUFL 

BL2'O1O00O0OOO00CO00' DSORG 
A(1) IOBAD 

FOUNDATION EXTENSION 

BL1« 00000000' BFTEK,BFLN,HIARCHY 



Sample Program 39 



LOC OBJECT CODE 



ADDR1 ADDR2 ST.1T SOURCE STATEMENT 



F01OCT71 6/22/73 



0004A1 0OO0C1 
0004A4 80 
0004A5 000000 



435 + 
U 36 + 
437 + 

439+* 



DC 
DC 
DC 



AL3(1) EODAD 
BLIMOOOOOOO 1 
AL3(0) EXLST 



FOUNDATION BLOCK 



0004A8 D7D9E3C4C440404C 
0004B0 02 
0004B1 00 
0004B2 004A 



0004B4 00 
0004B5 000001 
0004B8 00000001 
0004BC 0000 
0004BE 0040 
0004C0 00000000 
0004C4 00000001 
0004C8 00 
0004C9 000001 



0004CC 00000001 
0004DO 000C 
0004D2 0040 
0004D4 00 
0004D5 000001 
0004D8 00000000 
0004DC 00000001 



441 + 

442 + 

443 + 

444 + 



448 + 


DC 


449 + 


DC 


4 5 + 


DC 


451 + 


DC 


452 + 


DC 


4 53 + 


DC 


454+ 


DC 


4 55 + 


DC 


456 + 


DC 



460 + 


DC 


461 + 


DC 


4 62 + 


DC 


463 + 


DC 


4 64 + 


DC 


465 + 


DC 


466 + 


DC 


467 PCHDC3 


DCB 



DC CL8*PRTDD» DEN AM E 

DC BL1« 0000001C 1 OFLGS 

DC BLI'OOOOOOOO' IFLG 

DC BL2' 0000C000C1001010" MACR 

BSAM-BPAM-QSAN INTERFACE 



BL1»G000G000' RER1 

AL3(1) CHECK, GEPR , PERR 

A(1) SYNAD 

H'0« CIND1 , CIND2 

AL2(64) BLKSIZE 

F«0» WCPO, WCPL, OFFSR, OFFSW 

A(1) IOBA 

AL1 (0) NCP 

AL3(1) EOBR, EOBAD 

QSAM INTERFACE 

A (1) R^CAD 

H'O' OSWS 

AL2(64) LRECL 

BLI'OOOOOOOO" EROPT 

AL3(1) CNTRL 

F'O' PHECL 

A(1) EOB 

DDNAME=PCHXX,DSORG=PS,BLKSIZE=20,LRECL=20,BUFNO=1, 

MACRF=PM,RECFM=F 



0004EO 



0004EO 00000000000C0C00 
0004 FO 00000000 



469+* 
4 70+* 
4 71 + PCHDCE 

U73+* 

4 75 + 
4 76 + 



DC 
DC 



DATA CONTROL ELOCK 

C'F'O* ORIGIN ON WORD BOUNDARY 

DIRECT ACCESS DEVICE INTERFACE 

EL16'0' BDAD, DVTBL 

A (0) K3YLE,DEVr,TRBAL 

COMMON ACCESS METHOD INTERFACE 



0004F4 01 
0004F5 000001 
0004F8 0000 
0004FA 4000 
0004 FC 00000001 



480 + 


DC- 


481 + 


DC 


4 82 + 


DC 


4 83 + 


DC 


484+ 


DC 



AL1(1) BUFNO 
AL3(1) BUFCB 
AL2(0) BUFL 

BL2'0 10 000 00000000 30" 
A ( 1) IOBAD 



FOUNDATION EXTENSION 



40 



LOC OBJECT 


CODE 


ADDR1 


ADDP2 


STMT 


SOURCE STl 


000500 00 








488+ 


DC 


000501 000001 








489* 


DC 


000501 80 








490 + 


DC 


000505 000000 








491 + 


DC 



PAGE 10 
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000508 D7C3C8E7E7404040 

000510 02 

000511 00 

000512 0050 



000514 00 

000515 000001 
000518 00000001 
00051C 0000 
00051E 0014 

000520 00000000 

000521 00000001 

000528 00 

000529 000001 



00052C 00000001 
000530 0000 
000532 0014 

000534 00 

000535 000001 
000538 00000000 
00053C 00000001 



493 + * 



495 + 


DC 


496 + 


DC 


497 + 


DC 


498 + 


DC 



50 0+* 



502 + 


DC 


50 3+ 


DC 


504 + 


BC 


505 + 


DC 


506 + 


DC 


507 + 


DC 


50 8+ 


EC 


509+ 


DC 


510 + 


DC 



512+* 



514 + 


DC 


515+ 


DC 


516 + 


DC 


517 + 


DC 


518+ 


nc 


519 + 


DC 


520+ 


DC 


521 


END 



BLVOOOOOOOO' BFTEK.BFLN, HIARCHY 

AL3(1) EODAD 

BL1' 10000000' RECFB 

A 1.3(0) EXLST 

FOUNDATION BLOCK 

CL8TCHXX' DDNAME 
BL1' 00000010* OFLGS 
BLVOOOOOOOO' IFLG 
BL2'OO0O0O0OC1010O00« MACR 

BSAM-BPAH-QSAM INTERFACE 

BLVOOOOOOOO' RER1 

AL3(1) CHECK, GERR , PERR 

A(1) SYNAD 

H'O' CIND1, CIND2 

AL2(20) BLKSIZE 

F'O' WCPO, WCPL, OFFSR, OFFSW 

A(1) IOBA 

AL1 (0) NCP 

AL3(1) EOBR, EOBAD 

QSAH INTERFACE 

A(1) RECAD 

H'O' QSWS 

AL2(20) I.RECL 

BLVOOOOOOOO' EFOPT 

AL3(1) CNTRL 

F'0« PRECL 

A(1) EOB 



Sample Program 41 



RELOCATION DICTIONARY 



PAGE 1 



IS. ID 


EEL. ID 


FLAGS 


ADDRESS 


01 


01 


08 


000019 


01 


01 


08 


00C0CD 


01 


01 


08 


0000D9 


01 


01 


08 


0000DD 


01 


01 


08 


000 1 ED 


01 


01 


08 


O0C1P1 


01 


01 


08 


0001FD 


01 


01 


08 


000201 


01 


01 


08 


000401 



6/22/7 3 



42 



SYflBOL 


LEN 


VALUE 


D3FN 


RErE 


si: nc::s 














ACDRESS 


00024. 


000298 


0C278 


0197 
















BLANKS 


00040 


00C258 


00 276 


1 5 5 


16 5 


0175 


196 


21? 


°22B 






CITY ST 


00024 


C002BO 


00279 


0213 
















DATA1 


00020 


0002FE 


00 281 


00 5 4 
















DATA 10 


00C20 


0003B2 


00290 


0099 
















DATA11 


00020 


0003C6 


00 29 1 


104 
















DATA12 


00020 


0003DA 


00292 


01 C9 
















DATA2 


00 02 


000312 


00202 


59 
















BAT A 3 


00020 


000326 


C0283 


064 
















DATA4 


00020 


00C33A 


00 2 84 


06 9 
















DATA5 


00020 


0003412 


00235 


0074 
















DATA6 


00020 


000362 


00 2 36 


1079 
















DAT A 7 


C0020 


000376 


C0287 


084 
















DATA8 


00020 


00C38A 


0C288 


0089 
















DAT A 9 


00020 


00C39E 


00289 


00 94 
















EOJOB 


00001 


0001E8 


00 251 


0321 
















HARE 


00024 


000280 


00277 


0176 
















NOTE 


00054 


00C2C8 


00280 


0229 
















PCHDCB 


00004 


0004E0 


00471 


0050 


0053 


05 8 


06 3 


OOfc.3 


7 3 


0078 083 


0088 CC93 0098 103 108 
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NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

♦ STATISTICS* SOURCE RECORDS (SYS IN) = 170 SOURCE RECORDS (SYSLIB) = 304 1 

♦OPTIONS IN EFFECT* LIST, DECK, LOAD, NORENT, XREF, NOTEST, ALGN, OS, NOTERM , LINECNT 
555 PRINTED LINES 
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IEF285I SYS73173.T150833.SVOOO.T30102.R0000009 SYSOUT 

IEF285I VOL SER NOS= RPC001 . 

IEF285I SYS73173.T150833. RVOOO. T30102.LOADSET PASSED 

IEF285I VOL SER NOS= SLIB21. 

IEF285I SYS73173.T150833. RVOOO. T30102.SYSUT1 DELETED 

IEF285I VOL SER NOS= RPC003. 

IEF285I SYS73173.T150833. RVOOO. T30 102. SYSUT2 DELETED 

IEF285I VOL SER NOS= NACROP. 

IEF285I SYS73173.T150833. RVOOO. T30 102.SYSUT3 DELETED 

IEF285I VOL SER NOS= RPC001. 

IEF285I SYS1.HACLIB KEPT 

IEF285I VOL SER NOS= SLIB21. 

IEF285I SYS73173.T150833.SV000.T30102.R0000010 SYSOOT 

IEF285I VOL SER NOS= PVOL62. 

IEF285I SYS73173.T150833. RVOOO. 130 102.SC0000 1 1 SYSIN 

IEF285I VOL SER HOS= MACROP. 

IEF285I SYS73173.T150833. RVOOO. T30 102. S000001 1 DELETED 

IEF285I VOL SER NOS= MACROP. 

IEF373I STEP /ASM / START 73173.1511 

IEF374I STEP /ASH / STOP 73173.1513 CPU OMIN 21.20SEC MAIN 78K LCS OK 

XXLKED EXEC PGPI= IEWL, PARM= (X REF,L ET, LIST, NCAL) ,REGION = 96K , XOOOOO 100 

XX COND=(5,LT,ASM) 00000110 

XXSYSPRINT DD SYSOUT=A 00000120 

XXSYSLNOD DD DSNAME=SGOSET (GO) , ONIT=S YSDA, SPACE = ( 1 024, ( 50, 20 , 1 ) ) , X00000130 

XX DISP = (MOD,PASS) 00000140 

XXSYSUT1 DD DSNAME=SSYSUT1,UN1T=SYSDA, X00000150 

XX SPACE=(102U, (50,20) ) 00000160 

XXSYSLIB DD DS NAME-S YS 1 . LINKLIB, DISP=SHR 00000170 

XXSYSLIN DD DSNANE=* .A SM . SYSGO # DISP= (OLD , DELETE) 00000180 

XX DD DDNAME=SYSIN 00000190 

IEF236I ALLOC. FOR T30102 LKED 

IEF237I 132 ALLOCATED TO SYSPRINT 

IEF237I 130 ALLOCATED TO SYSLWOC 

IEF237I 251 ALLOCATED TO SYSUT1 

IEF237I 130 ALLOCATED TO SYSLIB 

IEF237I 130 ALLOCATED TO SYSLIN 
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F44-LEVEL LINKAGE EDITOR OPTIONS SP^CITIFD XBEF, LET, LI ST, NCAL 
DEFAULT OPTION (S) USED - SLZE= {100352 , 184 32) 

CROSS REPRStfNCj; TADLF 

CONTROL SFCTICN ENTRY 

NAHE ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAHE LOCATION 

RPWEGM OC b40 

LOCATION REFERS TO SYMBOL IN CONTKOI. SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 

ENTRY ADDRESS 00 

TOTAL LENGTH 5UC 

K***GO DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 
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IEF142I - STEP HAS EXECUTED - CONE CODE 0000 

IEF285I SYS73173.T150833.SV0C0.T3C102.K0O0O012 SYSO0T 

IEF285I VOL SER NOS= WACROP. 

XEF285I SYS73173.T150833.RV000.T30102.GOSET PASSED 

IEF285I VOL SER NOS= SLIB21. 

IEF285I SYS73173.T150833.RV000.T30102.SYSUT1 DELETED 

IEF285I VOL SER NOS= PVOL61. 

IEF285I SYS1.LINKLIB KEPT 

IEF285I VOL SER NOS= SLIB21. 

IEF285I SYS73173.T150833.RV000.T30102.LOADSET DELETED 

IEF285I VOL SER NOS= SLIB21. 

IEF373I STEP /LKED / START 73173.1513 

IEF37HI STEP /LKED / STOP 73173.1514 CPO OHIN 00.57SEC (IAIN 96K LCS OK 

XXGO EXEC PGB=*. LKED. SYS LMOC, CON D= ((5,LT,ASM), (4,LT, LKED) ) 00000200 

//GO.SYSUDUHP DD SYSOUT=A 

//GO.PCHXX DD UNIT=00D 

//GO.READD DD UNIT=3525 

//GO.PCHDD DD UNIT= AFF=READD 

//GO.PHTDD DD UNIT=AFF=READD 

IEF236I ALLOC. FOR T30102 GO 

IEF237I 130 ALLOCATED TO PGM=*.DD 

IEF237I 132 ALLOCATED TO SYSUDDHP 

IEF237I 00D ALLOCATED TO PCHXX 

IEF237I 013 ALLOCATED TO READD 

IEF237I 013 ALLOCATED TO PCHDD 

IBF237I 013 ALLOCATED TO PRTDD 
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INDEX 



access methods 

BSAM 

QSAM 
AFF operand of the DD statement 
area address of GET, PUT macro instruction 
ASCII control characters 
associated data sets 

closing 

line positioning 

locate mode restrictions 

opening 

PUNCH and PRINT 

READ and PRINT 

READ and PUNCH 

READ, PUNCH, and PRINT 

restrictions for closing 

sequrence of operations 

user restrictions 
automatic line positioning 



3505 CARD 


3525 CARD 


READER 


READER 


2 


11 


2 


11 




19 


4 


14 




17 




19 




24 




21,22 




19,25 




24 




22 




21 




20 




21 




25 




19 




25,26 
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BSAM macro instructions 

CHECK 

CNTRL 

CNTRL (for stacker selection) 

PRTOV 

READ 

WRITE 
buffering 
BUFNO 



3 

4 

3 

1 
5,8 



13 
14 
12 
25 



card feed control 






for closing 




24 


for print only 




16,17 


restrictions 




17,18,24,25,26 


with automatic line positioning 




18 


card read 




9 


chain channel scheduling restrictions 


7,8 


18,26 


channel assignments for printing 




13,16 


CHECK macro instruction 


3 




closing associated data sets 




24 


CNTRL macro instruction for stacker selection 


4 




CNTRL macro instruction for print control 




13 


coding rules for data protection 




22, 23 


coding rules for OMR data records 


5 




continuation coding 


5,7 




control characters 






ASCII 




17 


machine code 




17 
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data modes 

data protection 

data restriction 

data sets 

DCB (data control block) 

DECB (data event control block) 

device definition 

DPI (data protection image) 



3505 CARD 


3525 CARD 


READER 


READER 


1,2 


11 




20, 22 




24,25 


1 


10 


2 


11 


3 


12 


2 


10,15 




22,23 



error messages 
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features, device 
FCB operand 
first character control 
format description 

DPI 

OMR 

RCE 
format keyword 

OMR 

RCE 
FUNC operand 

valid combination or entries 



1 


9,10 




11,23 




16,17 




22,23 


5 




7,8 




5 




7 




11, 


11,20 




20 



GET macro instruction 



interpret punch 
data set 
how to specify 
punch output writer 

input data set 

input macro instructions 





10 




15 




15 




15 


1 


10 


2,3 


12 



line positioning 

for associated data sets 
for machine operation codes 
for program controlled print 
for two line print 
restrictions 

locate mode restrictions 



16 

21,22 

16 

18 

9 

25,26 

14, 19, 25 



machine code control characters 
MACRF operand 
macro instructions 
BSAM 

CHECK 

CNTRL (for printing) 

CNTRL (for stacker selection) 

PRTOV 

READ 

WRITE 
QSAM 

GET 

PUT 



17 

13 
14 
12 

14 
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3505 CARD 


3525 CARD 






READER 


READER 


mark columns (OMR) 




5 




MODE operand 








for OMR 




6,7 




for RCE 




8 




restrictions for OMR 




6 




restrictions for RCE 




8 




models 




1 


9 


modes 








column binary 




1 


9, 11 


EBCDIC 




1 


9,11 


locate 




4 


14, 19,25 


move 




4 


15 


optical mark read 




7 




read column eliminate 




8 


11,25 


substitute 




4 


15 


move mode 




4 


15 


multiline print option 






16,20 


multiprogramming with fixed number of tasks (MFT) 


2 


11 


multiprogramming with variable 


number of tasks (M VT) 


2 


11 



OMR (optical mark read) 

channel data 

data record 

format descriptor card 

how to specify 

replace data (for marginal or weak mark) 

restrictions 
opening associated data sets 
operands, DCB 

BUFNO 

FUNC 

MACRF 

MODE 

REFCM 

STACK 

for print only 

for READ and PUNCH associated data sets 
operands, DD 

DDNAME 

FCB 

restriction 

UNIT 
operations, sequence for associated data sets 
optical mark read (see OMR) 
optional features 
output macro instructions 
overflow exit address 



1,5 

6 

6 

5 

5,7 

6 

1 



5,8 

4 
6,8 



24 

25 
11. 20 

11 
17 
25 
18 
21 

21,22 
11,23 
25 

10, 19 
19 

9,10 

12 

14 



performance 

print character set 

print data set 

print command reject conditions 

print control, print only 

print only 

print options 

print span 

program controlled line positioning 

PRTOV macro instruction 

punch data set 

punch and print associated data set 

PUT macro instruction 



9 

9 

10 

17 

16 

15, 16 

15, 16 

9 

18 

14 

10 

22 

14 
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3505 CARD 


3525 CAF 






READER 


READER 


QSAM 




2 


11 


input operations 




4 




modes of retrieval 




4 




QSAM macro instructions 




3 




CNTRL (see CNTRL under BSAM macro instructions) 






GET 




4 




PUT 






14 


queued sequential access method 




2 


11 


queued output writer (see punch output 


writer) 







RCE (read column elminate) 


1, 


7 


10,25 


format descriptor card 


7 






how to specify 


8 






restrictions 


1, 


8 


10 


read 


3 




10 


column binary mode 


1 






optical mark read mode 


1, 


5 




read column eliminate mode 


1, 


7 


25 


with optional stacker 


4, 


5 




read and print associated data sets 






21 


read and punch associated data sets 






20,21 


read column eliminate (see RCE) 








read data set 


1 




10 


READ macro instruction 


3 






read, punch, and print associated data sets 






21 


read with optional stacker 


5 






RECFM operand 






17 


replace data for OMR 


6 






restrictions 








for associated data sets 






25,26 


for card feeding 






18,25 


for chain channel scheduling 


7, 


8 


18,26 


for checking binary column binary data 


2 






for closing associated data sets 






25 


for data protection 






24 


for fixed blocked, variable, and undefined records 






26 


for locate mode 


4 




14, 19, 25 


for optical mark read 


1 






for printer skipping 






17 


for read column eliminate 


1, 


8 


10 


for stacker selection 


5 






for use of columns one and two 








OMR 


7 






RCE 


8 






for user totaling facility 


7, 


8 


18,26 



sample program 

selective stacker, optional 

sequence of associated data set operations 

SK (skip) 

SP (space) 

STACK operand (see operands, DCB) 

stackers 

stacker defaults 

stacker select controls 

stacker select restrictions 

standard features 

substitute mode 



29 





19 




13 




13 


1 


9 


4,5 




4 




7,8 




1 


9 


4 


15 
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3505 CARD 
READER 



throughput 
two-line print option 
coding example 



3525 CARD 
READER 

9 
9 
16 



UNIT operand 

AFF operand of DD statement 
use of columns one and two 

OMR 

RCE 



10,19 
19 



WRITE macro instruction 



12 
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READER'S 

GC21-5097-0 COMMENT 

FORM 



Your views about this publication may help improve its usefulness; this form 
will be sent to the author's department for appropriate action. Using this 
form to request system assistance or additional publications will delay response, 
however. For more direct handling of such requests, please contact your 
IBM representative or the IBM Branch Office serving your locality. 

Possible topics for comment are: 

Clarity Accuracy Completeness Organization Index Figures Examples Legibility 



What is your occupation? 

Number of latest Technical Newsletter (if any) concerning this publication:. 
Please indicate in the space below if you wish a reply. 



Thank you for your cooperation. No postage stamp necessary if mailed in the U.S.A. (Elsewhere, an 
iRiwi ntfira r>r rpnmsentative will be haoov to forward your comments.) 



GC2 1-5097-0 



Your comments, please ... 

This manual is part of a library that serves as a reference source for system analysts, 
programmers, and operators of IBM systems. Your comments on the other side of this 
form will be carefully reviewed by the persons responsible for writing and publishing 
this material. All comments and suggestions become property of IBM. 
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